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Deux modules complémentaires 
pour le DTP-PAO..... 


Le seul progiciel PAO avec les accents français. 


Guide indispensable de 
conception et de fabri- 
cation de bulletins de 
liaison, composé de 228 
fichiers sur 2 disquettes 


DTP-PAO Polices !I 


12 polices supplémentaires 
2 jeux de caractères géants 
(hauteur 20 et 25 mm) 
200K de Clip art 
avec 4 cartes 
La France, 
la Grande Bretagne, 
l'Europe et le monde. 


créés avec le DTP-PAO. 


* Un exemple concret d'un 
bulletin multi-colonne. 

* Plein d'astuces pour 
ürer un maximum du 
DTP-PAO. 


me CONPUTR C'est SOLIDE ITALIQUE 
C'est SAUCISSE  L'est ARE 

C' ne AMERICAN est 

C'est CHUMCY “C'est ALIEN 
C'est YUPPIE C'est EPAISSE 
C'est SOLIDE C'est RELIEF 


395F 295F 


Une intégrale n'est pas un intégré * 
L'unique progiciel intégré pour le PCW est le 


MOP-MBP V2.0 


La version entièrement francisée de 


MINI-OFFICE de Database Software 


Plus de 400 000 exemplaires vendus dans le monde 


Ces cinq modules: 


1) Traitement de texte - WYSIWYG ultra rapide 

2) Base de données - hyper-conviviale 

3) Tableur - créer un tableau de 12 000 cellules 

4) Graphiques - ooene courbes et camemberts 


BON DE COMMANDE à retourner à POWER PRODUCTS FRANCE Sarl 

Cour de la Gare 60200 COMPIEGNE Tél: 44 83 48 48 
DTP-PAO 395 F MOP-MBP intégré 695 F 
DTP-PAO Polices | 295 F PLANIT Gestion personnel 425F dd 
BARBE DE L'EDITEUR 395 F PCW PAINT Utilitaire Graph. 295 à Contre remb. 
SOURIS AMX 695 F  CLAVICOURS Débutant 295 CRE 
DTP-PAO PRO CLAVICOURS Deux à dix doigts 295 p ve 
2: DTP-PAO + Souris + Barbe 1350 F TAPIS SOURIS -89 F Fr. Signanre aoigetore | 
Scanneur MASTERSCAN 795 F PLANKEUR 
Digitaliseur VIDI 1400 F THINGI 





PACA MICRO-EDITION 


DTP-PAO, 
LA BARBÉ DE L'EDITEUR, Complément de DTP-PAO . 
La SOURIS AMX Pr Gestion par icônes . 


SR FX LP 


Journée de formetion intensive. ZX 


INR ele (ei NN Ni Sim ET 


RES Ge RS D PRES 23 EU 2 RES Ce a) = 


D a Ta= ñ ra 7 
Prix TTC: 3300.00 Francs GS 
Possibilité de réglement en 3 versements. 


LES NOUVEAUTES 


GEOMETRIE PLANE 250.00 
GEOMETR. DS L'ESPACE 250.00 F 
ORDINATEUR GESTION DE CAISSE 790.00 F 
PORTATIF Z88 FACTURATION/STOCK__. 790.00 F 


Emporter ses fichiers avec soi et pouvoir travailler LA BARBE DE L'’EDITEUR 
Re EXCLUSIFS DE L'ECHO. 150.00 F 


Chargez vos fichiers en ASCK sur le ZBB, puis glissez le 
pd votre serviette et saisissez voire Courrier en voyage, 
pa exemple . Au retour, transterez votre travail dans votre 

W et éditez vos lettres, ou mettez à jour vos pro- 
grammes . 


D 55 213 1010 - Documentation dans le cata- 


Tenez le monde... du PCW 
entre vos mains... 


Le nouveau catalogue CML-PCW est disponible 
66 pages entièrement consacrées au PCW et à son environnement. 
85 logiciels professionnels ou personnels, décrits en détails. 
Des accessoires inédits, des livres, des astuces, des conseils, etc... 


Envoi contre 3 timbres à 2.20 Francs 





= Mustrations Publicité en KIT : 


-_ Réalisation LASERSCRIPT 


CML-EDITIONS 


BON DE COMMANDE 


Port : 30 .00 F pour ATEN 
60 .00 F en Contre Remboursement 


A envoyer à : 
CML - 3, rue des Vignes 
LUISETAINES 
77520 DONNEMARIE-DONTILLY 


Le Catalogue est envoyé gratuitement 
avec toute commande 


Cette publicité annule 
et remplace les précédentes. 
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L'ECHO DU PCW 


Une revue indépendante éditée par : 


LOGI'STICK Edition 


RC. BOBIGNY 325 608 362-APE 7704 - C.A.P.N. - Le Bonaparte 
Boîte 49 - 93153 LE BLANC - MESNIL CEDEX - FRANCE 


TELEX: 213396 F - FAX: (1) 48.65.68.81 - TEL (1) 48.65.44.55 


L'Echo du PCW est distribué par les N.M.P.P 
(Nouvelles Messageries de la Presse Parisienne) 


DIRECTEUR DE LA PUBLICATION 
REDACTEUR EN CHEF 
GILLES PROBST 


CHEF DE RUBRIQUE 
GESTION/COMPTABILITE 
Mme LACAILLE 


CONSEILLER TECHNIQUE 
ARNAUD BISSOUDRE 


PHOTOGRAPHIE DE COUVERTURE 
PHILIPPE GUERIN 


MISE EN PAGE/MAQUETTE 
J.P. DELMAS - MACINTOSH 2 - XPRESS 


PHOTOGRAVURE INTERIEURE 
IDP - BLANC-MESNIL 


PHOTOGRAVURE COUVERTURE 
LE CAMELEON - PARIS 


IMPRESSION 
HERISSEY - EVREUX 


ROUTAGE 
D.D.I - France 


TELEPHONE DE LA REDACTION 
(1) 48.65.44.55 


COLLABORATEURS AYANT PARTICIPE A LA 
REDACTION DE CE NUMERO 


DOMINIQUE BRESCHI 
GERMAIN DELALANDE - ALBERT DUROUX 
MARC HERMION - CHRISTIAN NESEN 
FRANCOIS PAGE - PIERRE PAND 
DOMINIQUE ROY - PHILIPPE SOUPAULT 
PHILIPPE THOMASSIGNY - CLAUDE V. 


CORRESPONDANCE 
L'envoi de tout article sous-entend l'acceptation, par leur(s) 


I auteur(s), des conditions d'édition contenues dans le proto- 


cole “Auteur que chaque auteur peut obtenir sur simple 
demande écrite accompagnée de 3 timbres à 2,20 F. 

Les manuscrits, disquettes, illustrations et autres documents 
ne sont pas retournés à leurs) auteur(s) sauf s'ils en font la 
demande écrite, 

Toutes réclamations, questions techniques ou relatives aux 
articles de l'ECHO, demandes d'adresses ou de documenta- 
tions doivent être formulées par écrit à LOGI'STICK Edition en 
mentionnant sur l'enveloppe le service concerné. Le fait de 
joindre une enveloppe timbrée aux demandes techniques 
ne garantit pas une réponse directe de nos services, du fait 
du temps exigé par ce type de correspondance. La rédac- 


Htion tient tout de mème compte des questions posées dans | 


le choix des rédactionnels. 


I LOGI'STICK Edition décline toute responsabilité quant aux opi- | 
( nions formulées dans les articles, celles-ci n'engageant que I 


leurs auteurs. La loi du 11 MARS 1957 n'autorisant, aux termes 
des alinéas 2 et 3 de l'article 41, d'une part que ‘les copies ou 
reproductions strictement réservées à l'usage privé du copis- 
te et non destinées à une utilisation collective" et, d'autre 
par, que ‘les analyses et les courtes citations dans un but 
d'exemple et d'illustration" * toute représentation ou repro- 





OOUMIMIAIRE 





BANSES D'ESSAI SUPER GAMES - Page 32 : Un pack de 10 Jeux d'ar- 
cade à faire bondir les plus taciturnes. Une affaire à 


LES EXCLUSIFS DE L'ECHO "© PSS Manquer ! 


JETFICH - Page 33 : Simple mais puissant voici la ges- 
tion de fichiers idéale pour les réfractaires à DBASE. 


SOPHIE - Page 34 : Complément indispensable au 
cours d'assembleur ce moniteur est un véritable outil 
de programmtion et de mise au point. 


OTHELLO MASTER - Page 35 : Classique de réflexion, le 
célèbre Othello vient grossir le rang des exclusifs qui 
n'en demandaient pas moins ! 


LA PASSATION DES POUVOIRS - Page 8 : LOCOSCRIPT 1 
passe 2 et mérite que l'Echo en dise plus sur quelques 
uns de ses nouveaux talents. 


INDTIATIONS BASIC (9) - Page 14 : Savourez le jeu des allumettes 
en découvrant les vertus cachés d'IF THEN et ELSE. 


ASSEMBLEUR (2) - Page 42 : Les choses se corsent… 
Hexadécimal pour commencer et carte écran pour 
terminer. Quel programme ! 


PROGRAMMES FICHE PRATIQUE DBASE - Page 12 : Comment préparer 
une disquette de lancement automatique de DBASE 
qui s'adapte à tous les cas... 


LES OUTS CELEBRES - Page 18 : Quand les ports nous 
réservent des surprises mieux vaut en mesurer l'effet. 


LABYRINTHE - Page 20 : Après ZAZA Christian NESEN 
frappe encore avec un jeu encore plus fou ! 


AUTO-PROGRAMMATION DBASE II - Page 38 : Tout sur 
les secrets des fichiers DBASE Il pour une programma- 
tion encore plus performante... 

BRICOLAGE SAUVEGARDE - Page 48 : Une sauvegarde de choc à 
petit prix pour une autonomie de 4 heures qui dit 
mieux ? 

DIVERS NEWS CLUB - Page 26 : Accueillant son nouveau res- 

RUBRIQUES SOMMAIRE Page 3 - EDITO Page 5 - NEWS Page 6 
INTERACTIF Page 7 - BON DE COMMANDE GENERAL Page 28 

HABITUELLES COURRIER DES LECTEURS Page 52 - COMMENT SAISIR UN PRO- 
GRAMME BASIC Page 56 - PETITES ANNONCES Page 56 














aque mois dans des fiches techniques lis seront obtenus à l'aide du bon de 
commande du cahier central (page 28) ou par téléphone (avec une carte Visa) 

Disquettes EChO : Tous les programmes de ce présent numéro sont regroupés sur une seule et même disquette 
correspondant au numéro du journal. 


Les Exclusif : 





(| Anclens numéros : Les anciens numéros de l'Echo du PCW sont encore disponibles à l'exception du numéro 2 dont 


I duction, intégrale ou païtielle, faite sans le consentement de l 


l'auteur ou de ses ayants droit ou ayants cause, est illicite” 
(alinéa 1 de l'article 4). Cette représentation ou reproduc- 


I tion, par quelque procédé que ce soit, constituerait donc 


I 
1 L'ECHO DU PCW © LOGJ/'STICK 1988 1 


une contrefaçon sanctionnée par les articles 425 et suivant 
du code pénal. 


ISSN 0728-7648 


Less 


nous ne lvrons que des photocopies. 


Reliure Echo : La reliure Echo est personnalisée au sigle du Journal et permet de classer une année entière, soi 11 numéros. 
Pour vous procurer Un Ou plusieurs de ces articles, utllsez ou recopiez le bon de commande situé en page centrale. 
Publicité : Le tar de publicité est disponible sur simple demande par courrier. 


Papier à en-tête : Un échantilonnage de papier personnalisé peut être obtenu par courrier accompagné de 10 F en timbres. 
Correspondance : Pour toute cormespondance, joindre une enveloppe timbrée pour une éventuelle réponse. 





En couverture : L'ombre du PCW plane sur les entreprises et leur rend de 
nombreux services... à 
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.016,016,016,0*0,.2"0,06,076,078,970,2"0,. 070,076 ,076 076 276,270, 076,076 070 
DATE : 3 & 4 DECEMBRE 88 
LIEU : PARIS 
TARIF NORMAL : 1800 F TTC° 
TARIF CLUB : 1650 F TTC° 
NOMBRE DE PLACES : LIMITEES A 20 
MAITRE DE STAGE : TONY LUZY 


9° - comprenant 2 repas, les collations, prêt du matériel, rapport et disquette de stage. 


- remise de 200 F aux stagiaires apportant leur matériel. 
- TVA Récupérable de 18,6%. 
-_ Stage pouvant être pris en charge par votre employeur dans le cadre du 1% formation. 
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Les aventures d'Eddy To, dit ET. 


2 


Ce matin là, ET. se réveilla avec la ferme intention de se faire adopter. Depuis le temps qu'il trainait 
dans cette décharge municipale de la cité informatique, au milieu des CRAY 56, IBM 80 SUPRA, 
UNISYS B 52 et autres vieilleries, il était temps pour lui de changer d'atmosphère. 


Après quelques déambulations au hasard des rues froides et vides, seulement animées par les éter- 
nels policiers automatiques, les caméras de surveillance pour la sécurité des cités, le bruit désa- 
gréable des haut-parleurs distillant leur lancinante propagande d'une insupportable voix synthétique 
et par quelques androïdes B.C.B.G. de la dernière génération faisant quelques courses pour quelques 
hauts fonctionnaires du gouvernement d'AUTOMATON, période 8256-8512-9512, dont la Terre fai- 
sait partie, ouf !..., ET. fut attiré par une curieuse mélodie. Elle semblait provenir d'une de ces caves 
aujourd'hui interdites qui avaient fait le bonheur de certains joyeux fêtards des temps anciens. 

Attiré comme la puce par la plaquette de bakélite, ET. s'approcha de la source de sa curiosité. Plus 
près, il entendit distinctement un sorte de doux cliquetis. Encore plus près et le cliquetis se confirma. 
Incroyable ! Là, devant lui, un spectacle étonnant : le grand prêtre du gouvernement en personne 
s'affairait sur un de ces claviers préhistoriques rattaché par une espèce de cordon ombilical à un 
drôle de moniteur noir et vert, avec deux fentes dans un cadre noir sur sa droite et relié à une... 

ET. ne se rappellait plus le nom de cette petite chose à imprimer, n'ayant jamais été très bon en his- 
toire ancienne, et n'ayant pas dépassé le stade du premier degré, correspondant à la qualification 
d'ingénieur média qui lui avait valu d'être chômeur professionnel dès sa sortie d'école. Curieux, il 
s'approcha encore et lu les inscriptions sur la machine : AMSTRAD 512k Personal Computer Word 
Processing ! Et il comprit toute la vérité quand il aperçu sur l'écran le texte que tapait le grand prêtre; 
AUTOMATON était gouverné depuis des millénaires par ce fossile vivant. un PCW à la tête de 
l'univers !!! 

"Si j'avais su", se dit-il, "j'aurais mieux appris l'histoire ancienne"... 
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Et il s'éclipsa discrètement, songeant encore à ce doux foyer dont il désespérait de pouvoir le trouver 
un jour. 
Arnaud BISSOUDRE 
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A PROPOS DE RUBANS 


Toujours dévouée à la bonne cause (cell ses 
teurs), la rédaction a réalisé un banc d'essai impartial 
sur les rubans de l'imprimante des 9512. Trois marques 
se sont ainsi trouvées en concurrence : AMSTRAD, 
avec son ruban de type film; ARMOR, avec son ruban 
de type nylon sans fin; et enfin DDI, avec son ruban de 
type nylon sans fin. Tous se présentent sous forme de 
cassettes facilitant la mise en place, formule bien 
agréable et maintenant généralisée sur tous les types 
d'imprimantes ou presque. 

Différence de type, différence de qualité, les résultats du 
test effectué méritent quelques explications. 


Tout d'abord, les types : le type film est un ruban en 


plastique recouvert d'une fine pellicule d'encre sèche 
que la frappe de la marguerite dépose uniformément sur 
le papier; une fois déposée, l'encre n'est plus sur le 
ruban à l'endroit de la frappe, et il ne peut donc y avoir 
une seconde frappe au même endroit; ainsi, la fin de ce 
type de ruban est marquée par un petit adhésif magné- 
tique, détecté par l'imprimante grâce à un électro-aimant 
à droite de la tête d'écriture. Le type nylon est un ruban 
en tissu sans fin, uniformément enduit d'une encre humi- 
de que la frappe de la marguerite dépose sur le papier; 
après coup, l'encre présente autour de l'endroit de la 
frappe vient réimbiber le ruban de manière uniforme; 
ainsi il est possible de repasser au même endroit du 
ruban pour une nouvelle frappe. Cependant, concernant 
les rubans sans fin, la qualité de l'encre, sa quantité 
imbibant le ruban, la longueur de celui-ci, font toute la 
différence d'une cassette à l'autre. 

Ensuite, le test : l'imprimante configurée en papier 
continu, avec 72 lignes de 80 caractères par page, le 
test a porté sur tout le jeu de la marguerite en utilisation 
non-stop, c'est-à-dire jusqu'à épuisement du ruban ou 
par arrêt de l'impression lorsque celle-ci devenait trop 
claire. À ce sujet, il faut dire que dans ce contexte d'utili- 
sation sans interruption les rubans de type nylon n'ont 
pas le temps de se réimbiber uniformément. C? 
Enfin, les résultats : AT 
Cassette AMSTRAD film = moins de 22 pages, unifor- 
mément noires certes, pour un ruban entier! 

Cassette nylon ARMOR = arrêt à 100 pages : dès la 
première page, c'est moins noir que le film; 10 pages 
seulement sont correctes, l'impression donnant des 
signes de faiblesse ensuite, dégradation (impression 
très claire) à partir de 50 pages environ. 

Cassette nylon DDI = arrêt à 100 pages : presque aussi 
noir que le film sur une vingtaine de pages, puis bonne 
tenue de l'impression jusqu'à la fin (faiblesse très pro- 
gressive) mais pas de dégradation évidente! 
Conclusion, pour la qualité d'impression, le film l'em- 
porte, mais pour la quantité, c'est le ruban qui l'emporte. 
A prix égal, 65 F, le rapport qualité/prix est très nette- 
ment favorable à la cassette distribuée par DDI. 


MAUR 
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4 \TTRAPEZ PAS LE VIRUS 


ans Les Echos du Mercredi 7 Septembre 1988 : le 
premier procès au monde pour sabotage de données 
informatiques par propagation d'un "virus" a commencé 
le mardi 6 Septembre 1988 à Fort Worth (Texas, USA). 
Le vilain programmeur est accusé d'avoir voulu se ven- 
ger de la société qui l'avait licencié. ll a d'abord été 
condamné à payer 12.000 $ de dommages-intérêts sur 
le plan civil et risque dix ans de prison et 5.000 $ 
d'amende sur le plan pénal. Comme quoi il est préfé- 
rable d'être vacciné contre ce genre de pratique, c'est 
plus sain! 


ALLO, FICINE !.. (7 


Logiciel de gestion des tiers-payants pour PCW 8512 ou 
8256 avec 2 lecteurs, DELPHAR gère la facturation (5 
fichiers de factures pouvant totaliser plus de 1200 enre- 
gistrements, impression de : la facture subrogatoire 
avec report automatique si nécessaire, le volet de factu- 
ration, la partie chiffrée de la feuille de maladie), le 
fichier des médecins (capacité de 75 enregistrements, 
impression liste), le fichier des assurés (capacité 2500 
enregistrements, impression liste), le fichier des 
mutuelles (capacité 50 enregistrements, impression 
liste), et imprime les états récapitulatifs des factures. || 
est le résultat d'une étude approfondie à laquelle ont 
participé une vingtaine de pharmaciens qui ont su décri- 
re leurs besoins avec rigueur et minutie. 
DELPHAR répond aux objectifs suivants : 
-__ Servir plus vite la clientèle. 
-__ Remettre à l'assuré un document fiable et bien pré 
senté. 
- Diminuer les risques d'erreurs et, par là même, les 
litiges avec les Caisses. 
-__ Permettre une gestion facile des délégations. 
Un logiciel d'évaluation est disponible, permettant de 
tester la totalité des fonctions de DELPHAR. Service 
d'installation et de formation, contrat de maintenance, 
tout est fait pour garantir le professionnalisme du pro- 
duit. 


LICENCE POUR UNE OFFICINE ET UNE MACHINE : 
2500.00 F (Prix dégressif pour plusieurs installations). 
LOGICIEL D'EVALUATION + MANUEL : 220.00 F 
MANUEL SEUL : 50.00 F 

Le manuel et le logiciel d'évaluation sont remboursés en 
cas d'achat. 


Contact : Charles CORBOU 
14, rue du Mail-Richelieu 
PARON 
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Nous avons gagné ! 

A force de demander des augmentations, le chef à cédé... l'Echo 
passe à 33 francs et la pagination grossit de 8 pages. Armé de son 
Multiplan à tout faire (...) il s'est livré à un savant calcul se soldant par 
une déclaration à la presse en liesse par un sublime : "Je vous ai com- 
pris !". 

Toujours est-il que par cette ruse démoniaque, mon augmentation est 
passée aux oubliettes et à titre de représaille, j'ai activement participé 
à la réalisation de ce spécial jeux dont vous me direz des nouvelles... 
Pour résumer la situation je vous informe tout de même que l'augmen- 
tation ne sera effective qu'à compter du numéro 24 et que les spécu- 
lateurs feraient bien de s'abonner rapidos pour profiter de l'ancien tarif 
(valable jusqu'au 8 novembre dit-on dans les milieux bien informés). 
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Un club d'investissement reservés aux PCWistes boursicoteurs va très 
prochainement tenir sa première réunion et vous avez toutes les 
chances d'y participer en le demandant expressément par courrier ou 
par téléphone. Ordres du jour : PCW et bourse, les programmes dispo- 
nibles, la constitution d'un portefeuille commun, statut du club, etc. 
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Mon appel désepéré du mois précédent a été entendu et nous pour- 
vons nous réjouir d'une abondance d'Edito dont certains feront date 
dans l'histoire de la littérature informatique d'avant garde... Le jury, 
devant se réunir mi-octobre, est composé de journalistes prestigieux et 
d'informaticiens chevronnés et aura beaucoup de mal à départager 
les nombreux postulants à la gloire. 
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Sur ces bonnes nouvelles, je m'en vais retrouver ce qui reste de mon 
PCW pour vous concocter ma fulgurante réplique à Trépan qui, soit dit 
en passant, ne sera jamais aussi PAND que moi ! = 
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LOCOSCRPT l' # LOCOSCRPT 


LA ASSAION £ 


Le LocoScript nouveau est 
arrivé. Il se présente sous la 
forme d'une disquette, d'un 
manuel de 335 pages et d'un 
petit parallélépipède en matière plastique 
jaunâtre servant à empêcher son utilisation 
sur plusieurs machines à la fois. Au delà 
de cette première innovation servant à 
réfréner l'ardeur reproductrive d'utilisa- 
teurs manquant de reconnaissance envers 
les éditeurs, il nous importe aujourd'hui de 
mieux cerner les différences majeures qui 
font le charme des successions. 


Premières 
surprises 





Après avoir parcouru le manuel en diagonale (que 
celui qui a pris le soin d'assimiler le manuel de 
LocoScript 1 en entier avant de mettre sous ten- 
sion son PCW tout neuf me jette le premier kilo- 
octet), on peut déjà dire qu'il est bien fait, assertion 
qui se confirmera : on y retrouve sans grande diffi- 
culté le renseignement urgent. 
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7 Docunent LocoScript 1: BAR'COUV.PED 


ï Réalise docunent LocoScript à 
© Vérifier papier et inprinante 





Figure 1 : Le point de non 

retour LocoScript 1 ne recon- 
{ naîtra plus son enfant 
BAR'COUV.PED 


Lonnonnencsmnennmnnennenmnnsnnencencesmemcsoms 











Par Dominique ROY 


” POUVOIRS 


Passons aux travaux pratiques. Ceux évo- 
qués ici ont été effectués sur un PCW 8512 
mais cette particularité n'a sans doute pas 
d'importance, le manuel ne mentionnant 
aucune restriction pour le PCW 8256. Ils 
avaient pour but de savoir ce que deviennent 
quelques disquettes lourdement chargées en docu- 
ments LocoScript 1 lorsque leur créateur aban- 
donne sans vergogne ce programme au profit du 
grand nouveau. 
Avant toute manipulation, il faut intercaler le 
"dongle" (clé anti-piratage) entre l'unité centrale 
et le clavier, le PCW et les copies du LocoScript 
2 deviennent, de ce fait, indissociables, ce que 
vous explique trop brièvement le manuel. 
Angoisse. 


Nouveau : 
le formatage ! 





LocoScript 2 permet de copier et 
de formater les disquettes; c'est la 
première chose à essayer bien sûr et cela ne pose 
aucun problème comme on s'en doute, il suffit de 
lire soigneusement ce qui apparaît à l'écran. Un 
détail tout de même : la disquette fournie n'était 
pas verrouillée. 
Première constatation les documents cachés 
pèsent 118 Ko contre les 85 de LocoScript 1. 
Deuxièmement après avoir changé de disquette, il 
faut taper <f7> et non plus <f1>. Peu importe. 
Nous voilà donc devant l'écran de gestion de 
disque, la disquette étant une copie de nos pré- 


cieuses oeuvres littéraires. 
Les types papier... 
TZ attache à chaque document un type 
de papier ce qui évite d'avoir à se 


remémorer la taille des pages du docu- 


Comme annoncé, LocoScript 2 


; 
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ment à imprimer et à régler l'imprimante 

ou tout au moins à en vérifier les para- 

mètres à chaque fois que l'on veut s'en 

servir. D'après le manuel, LocoScript 2 a 
en mémoire un choix de 

% . divers types de papier. 

Pour ma part, je n'y ai 







té à créer et à sauvegar- 
der un type de papier 12 
pouces continu en tâton- 
nant quelque peu avec la 
fonction <f6> = Config. 
c'est-à-dire configuration. 
C'était la première chose à faire, puisque je n'utili- 
se pratiquement que ce type de papier. 







Afin d'entrer plus rapidement dans le vif du sujet, à 
savoir découvrir LocoScript 2, partons du principe 
tout à fait vraisemblable que vous serez bien 
capable d'en faire autant à propos de votre type de 
papier préféré. 


Premièrement, on n'édite plus on modifie, il faut 
donc taper <M> pour obtenir le fichier choisi. 

La victime que j'ai choisie s'appelle 
BAR'COUV.PED et pèse 38 Ko. 

La figure 1 montre ce qui s'affiche à l'écran quand 
on veut éditer, pardon modifier, en LocoScript 2 
un document LocoScript 1. 

En tapant <ENTER> pour continuer, on arrive 
directement dans l'en-tête car c'est ici que papier et 
imprimante sont à vérifier. En tapant <f5> = page 
on obtient l'écran copié à la figure 2. 

Ici il est déjà nécessaire d'établir un petit lexique 
LocoScript 1 —+ LocoScript 2: 

-AlignD = Justif pour LocoScript 1 

-Type papier : inconnu pour LocoScript 1 
-Format de page = Taille page pour LocoScript 1 
-Options pour cadre = Pagination pour Loco 1 
-Numéros de page : se trouvait dans pagination à 
peu de chose près. 


Sélectionner "Type de papier" permet, on y arrive 
enfin, de définir le papier sur lequel le document 
sera le plus souvent imprimé. Il faut ensuite véri- 
fier que le format de page n'a pas été modifié par 
cette opération. Enfin on a remarqué, dans le 
manuel, que la position de l'en-tête et du pied de 
page ne sont plus définis par des numéros de ligne 
enregistrés dans le tableau "Taille page". Par 
conséquent, si le pied de page comporte 10 lignes 
et que la seule ligne comportant du texte doit être 
en huitième position, il faut la faire précéder de 7 
lignes vides. Mais si on la fait précéder de quinze 
lignes vides, LocoScript 2 débordera imperturba- 
blement sur la feuille suivante, en laissant le cas 
échéant une marge, bien qu'on lui ait dit et répété 
que la page ne fait que 72 lignes. Ah bon? Ben oui. 


Compatibilité 
ascendante. 





© KA £ 
S 

Et quand est-ce qu'on commence? Nous y sommes: 
une vérification effectuée par la suite confirmera 
que BAR'COUV.PED est devenu pour 
LocoScript 1 "document non LocoScript”, les 
dés sont jetés, <EXIT> l'en-tête et en avant. 
HORREUR! 
Dans le texte écran, les codes de format ne sont 
plus numérotés : ils s'appellent tous (Format) et 
puis c'est tout. 








(] fl à se 
âli 
{in En-tête 1 utilisée à din, à 
{ SD. 
| tin Pied de page 1 utilisé À toutes 


Pourtant je reconnais bien mon format 1 qui ne 
me sert que pour les titres, le 2 pour les sous titres 
etc. Ouf! en faisant [+] F4 je retrouve mon format 
4 et pareil pour les autres évidemment. Donc rien 
de changé? pas sûr, une étude plus approfondie du 
manuel et quelques essais se révélent indispen- 
sables. 





Pour LocoScript 2 il y a deux sortes de formats : 
les formats types et les codes de formats, et on dis- 
pose de dix formats de chaque sorte. 

Les formats types sont des caractéristiques du 
document au même titre que l'en-tête, le pied de 
page et le type de papier, l'ensemble étant baptisé 
"Cadre document". L'ancien <f7> = mode est 
avantageusement remplacé par <f1> = Actions et 
"Editer en-tête” par "Cadre document". Cette 
procédure suivie, la touche <f2> permet de modi- 
fier les formats types et, merveille, de leur donner 
un nom. 


C'est ici que les choses se compliquent : les codes 
de format, qui eux font partie du texte, ne sont pas 
influencés par les modifications des formats types 
et ne le seront jamais tant qu'ils n'auront pas le 
même nom qu'un format type, condition nécessaire 
mais non suffisante. 


Par ailleurs, si étant dans le texte on modifie le 
code de format du passage où l'on se trouve (c'est 
le seul que l'on puisse modifier dans ce cas) ceci 
n'aura d'influence que sur le passage en question 
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c'est-à-dire à partir du précédent (Format) jus- 
qu'au suivant. 


Et pour modifier, par exemple, tous les codes de 
format nommés "texte" il faut d'abord modifier le 
format type "texte" puis après avoir quitté le 
"cadre document" faire <f2> et utiliser 
"Remplace format" en n'oubliant pas de se mettre 
en face du nom du format de code "texte". On peut 
ainsi mettre à jour plusieurs codes de format en 
même temps. 


Pourquoi tout cela? Tout simplement parce que, 
lorsque l'on déplace, au moyen d'un bloc, toute une 
partie de texte, on emporte avec lui les codes de 
format. Dans le texte d'arrivée, le voyageur aura 
donc exactement sa forme originale et non celle 
imposée par les formats de l'hôte. 





= ——— 


Eigur € 3: Que sont mes formats devenus? 
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Il est certain que cela peut être très utile. 

D'autre part lorsque l'on veut insérer un format 
type c'est-à-dire mettre un nouveau code de format 
dans le texte grâce à <fS> = type on obtient la liste 
des formats types et il suffit de sélectionner celui 
que l'on veut. 


Que faire de notre document ex LocoScript 1? 
LocoScript 2 a baptisé les formats existants 
"script 1: 0", "script 1: 0", "script 1: 1", "script 
1: 2'"etc, voir figure 3 (mais si il y a bien deux 
"script 1: 0" ce sont les ex formats 0 et 1 qui sont 
des formats ayant quelques particularités). 


Il est très possible de donner un nom plus person- 
nalisé aux formats types puis de renommer cha- 
cuns des codes de format du texte. Il existe une 
procédure utilisable à cet effet. Pour un texte assez 
long c'est un peu fastidieux mais ça peut en valoir 
la peine. Pour les "MODELE.STD" cela s'impose 
évidemment. 


Autre innovation de taille à l'intention cette fois 
des utilisateurs de tableaux géants. 

Il est maintenant possible de régler le "pas de 
réglette" de tous les formats (type ou code) et non 
plus seulement du format 0 de LocoScript 1. 
C'est-à-dire que si l'on utilise par exemple un pas 








de caractère de 17 et que la réglette est également 
au pas de 17 le texte restera bien sagement dans les 
limites matérialisées sur la réglette en haut de 
l'écran. Il en découle que les tabulateurs peuvent 
être disposés à leur place réelle et non, par 
exemple, à cinquante divisé par dix sept multiplié 
par douze pour le tabulateur qui doit être situé, en 
pas de dix sept, en cinquantième position sur la 
ligne. Ce n'est pas beau ça? 


Formidable : 
les phrases types 





Pour ma part, j'avais rapidement abandonné la pra- 
tique des "PHRASES.STD" car il me devenait 
parfaitement insupportable de voir arriver "poly- 
méthyles méthacrylates" quand j'attendais 
"Papatropoulos" et réciproquement. 

Tout comme LocoScript 1, LocoScript 2 charge 
systématiquement le fichier PHRASES.STD si il 
y en a un qui figure dans le groupe 0 de la disquet- 
te qui sert à l'installer. De même, ce fichier est uti- 
lisable sur toutes les disquettes jusqu'à réinitialisa- 
tion de LocoScript ou coupure de courant. 
Première innovation d'importance, le début des 
phrases types peut être consulté : avec LocoScript 
1 on pouvait voir leur intégralité en insérant le 
fichier PHRASES.STD dans un document 
LocoScript , mais ce n'était pas très pratique. 

Ce n'est pas là l'innovation la plus importante sur 
ce sujet, loin s'en faut! 


Supposons que dans le texte sur lequel vous tra- 
vaillez, mais que vous ne comptez pas terminer 
aujourd'hui, les termes "polyméthyles méthacry- 
lates” et "Osterrichischen Normungsinstitut" se 
présentent à des cadences infernales. Vous allez 
bien sûr les mettre dans deux PHRASES.STD, les 
sauver et vous débrouiller pour avoir la possibilité 
de les récupérer par la suite (c'est très faisable avec 
LocoScript 1). 


Avec LocoScript 2 c'est beaucoup plus simple. 
Après avoir quitté votre document, que nous 
appellerons DOC.000, il est temps de sau- 
€ vegarder les phrases types que vous y avez 
Æ) utilisées (<f1> = Actions). LocoScript 2 
‘li vous propose de dénommer le fichier à 

: | sauvegarder "PHRASES.STD" mais 








comme vous avez un esprit de 
DE contradiction bien affirmé 
°O * vous le nommez 
©. 2% 2 "DOC.STD" par 
Ie exemple. Et vous avez 
ainsi un ensemble de 
phrases types spécifiques 
du document en cours d'élabo- 
ration. Il suffira de penser à 
"charger phrases types" 
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avant d'ouvrir votre document pour pouvoir en dis- 
poser dans le cours de votre travail sur celui-ci. Il y 
a on s'en doute bien d'autres possibilités dans ce 
domaine. 


Rapidité? 


Pour les petits documents (dans 
les quinze pages) c'est incontes- 
table. De plus LocoScript 2 

\p trouve la page dont on lui a 
demandé le numéro. 

Mais à partir de trente pages une pesanteur certaine 

se fait sentir. 






Les auteurs du programme en sont à l'évidence 
conscients. Ils ont donc créé un petit sytème très 
valable à mon sens. 

Il est préférable, tout utilisateur de LocoScript le 
sait, de scinder un document en plusieurs docu- 
ments DOC.001, DOC.002 etc..., par exemple. 
Mais pour imprimer l'ensemble, la numérotation 
des pages pose évidemment un problème, surtout 
si l'on tient à faire une numérotation indiquant à 
chaque page le nombre total de pages de l'en- 
semble. 


Avec LocoScript 2, il est possible de lier en 
quelque sorte les documents de façon à ce que 
même ce dernier type de numérotation soit cohé- 
rent. La procédure à suivre est simple et parfaite- 
ment bien exposée dans le manuel. 


Quelques mots pour les hellénistes : Comme expo- 
sé dans le manuel en tapant <ALT>< f3> le PCW 
écrit en caractères grecs ce qui est signalé dans le 
coin haut droit de l'écran. Mais il faut avoir en 
mémoire quelques détails. 

En ce qui concerne les accents, le manuel n'est pas 
très clair, précisons donc que l'accent aigü, que l'on 
peut, comme tout accent avec LocoScript 2, 
mettre sur n'importe quelle lettre, s'obtient par 
<EXTRA> et la touche <E», l'accent grave par 
<EXTRA> et <T>. Il y a d'autres combinaisons de 
touches pour obtenir ces résultats mais celles-là me 
paraissent les plus pratiques. Il faut aussi retenir 
qu'en Grec le Tilde ( <EXTRA><P>) est beau- 
coup plus esthétique que l'accent circonflexe. 


L'esprit rude, l'esprit doux et les iotas souscrits ne 
paraissent pas être au programme. 

Comme signalé dans le manuel, alpha s'obtient par 
la touche <Q> et dzeta par la touche <W > : adieu 
AZerty, bonjour QWerty. 

Le sigma final ne s'obtient pas avec le W mais 
avec le Z. 

Mystérieusement le mu s'obtient avec la touche 
"point d'interrogation”. 


Sachant cela nous pouvons triomphalement écrire : 


H piGa Tmb En1ouns mxpa EGTLV- 
Ce qui, comme chacun sait, signifie : la racine de 
la science est amère. 
7 


=] Le bilan 


mi 
Pour ce qui est des formats, ma pre- 
mière réaction est mitigée, maïs il faut voir à l'usa- 
ge. Et de toute façon ce nouveau système n'enlève 
rien par rapport au précédent. 


On a pu s'en rendre compte, je l'espère, le bilan 
global est incontestablement positif. De plus, les 
routards de LocoScript 1 apprécieront très vite la 
nouvelle présentation de ce programme qui leur est 
familier. I1 n'a pas semblé utile de s'étendre sur 
cette nouvelle présentation car elle est très facile- 
ment assimilable et ne demande pratiquement 
aucun apprentissage à un habitué. 


En conclusion, Locoscript 2 présente bien des 
avantages que la première version pourrait lui 
envier, rapidité, format de papier et bien d'autres 
choses qui en compliquent singulièrement l'utilisa- 
tion et en font un produit complexe qui demandera 
un apprentissage plus long et beaucoup moins 
évident. N'est-ce pas la rançon du progrès ? = 
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Sel DISQUETTE DE LANCEMENT AUTOMATIQUE POUR DBASE 
RUCRS PRATIQUE! I > PAR MARC HERMION 


Insérez et savourez. La disquette de lancement que nous allons réaliser ensemble, se propose de prendre 
en charge toutes les opérations de démarrage, de redéfinir, accessoirement, le clavier pour une utilisa- 
tion optimale et de libérer le lecteur A: pour le rendre totalement disponible à l'utilisation de nos dis- 
quettes de données. Enfin, la méthode employée dans cette fiche pratique sera opérationnelle sur tous 
les PCW, qu'ils aient un ou deux lecteurs... 


PRINCIPE 

En regroupant les fichiers utiles et en créant d'autres pour superviser l'ensemble, vous allez organiser une dis- 
quette de lancement pour effectuer le travail suivant : 

- Recopier dans la mémoire M: (lecteur virtuel) tous les fichiers programmes utiles à DBASE II; 

- Redéfinir le clavier pour l'adapter à DBASE II selon les indications de T. LUZ Y (cf ECHO N°10); 

- Mettre le lecteur M: comme lecteur par défaut (pour le CP/M); 

- Lancer DBASE II en lui faisant exécuter une commande qui mettra le lecteur A: comme lecteur par défaut; 
- Remettre le clavier en configuration standard quand vous quitterez DBASE en recourant, une fois encore au 
travail de Tony LUZY (cf ECHO N°10). 


we 
PREPARATION DE LA DISQUETTE AUTOMATIQUE ELA ET 
Commençez par l'indispensable formatage d'une disquette à l'aide de DISCKIT. : CR 


Insérez la disquette système: (face 2 pour les 8256/8512) et tapez : Ent ta 

PIP <RETURN> Lancement du programme de copie PIP 

M:=A:*.EMS <RETURN> Copie du CP/M en M: EN 

M:=A:SUBMIT.* <RETURN> Copie de SUBMIT.COM en M: 

M:=A:SETKEYS.* <RETURN> Copie de SETKEYS.COM en M: (optionnel) “er 

M:=A:PIP.* <RETURN> Copie de PIP.COM en M: ms 

remplaçez la disquette système par la disquette nouvellement formatée et tapez : 

A:=M:*.* <RETURN> Recopie de tous le fichiers en M: sur A: 

<STOP> Sortie de PIP 

ERASE M:*.* <RETURN><Y>  Effacement des programmes en M: 

PIP <RETURN> Vous relançez PIP 

Insérez la disquette programme DBASE II dans le lecteur A: et tapez : M:=A:DBASE*.* <RETURN> 
M:=A:*.OVL <RETURN> 

Si vous avez les fichiers DBASE.KEY et STANDARD.KEY donnés dans l'ECHO 10 (ou sur disquette 

ECHO 10) et que vous souhaitiez redéfinir le clavier, remplaçez la disquette DBASE par la disquette qui 

contient ces deux fichiers et tapez : M:=*.KEY <RETURN> 

Remplaçez la disquette DBASE (ou celle contenant les fichiers KEY) par la disquette de lancement et tapez : 

A:=M:*.* <RETURN> Recopie des fichiers de M: vers A: 


<STOP> Sortie de PIP Instrer le disque de destination et tapez le nan du nouveau Fichier 
PREPARATION DES FICHIERS DE LANCEMENT 


Pour organiser le transfert automatique des fichiers DBASE de A: vers M:, redéfinir le clavier et lancer 

DBASE II créez maintenant un fichier texte PROFILE.SUB. 

Insérez la disquette système (face 2 pour les 8256/8512) et tapez : BASIC RPED <RETURN> l 
Dès que le menu de RPED apparaît, remplaçez la disquette système par la disquette de lancement et choisis- 

sez l'option "Editer un nouvel écran" en pressant <f3> et entrez son nom en tapant : 





ET ose 





PROFILE.SUB <RETURN> fé 
Puis entrez son contenu : + nus A MCE EME CETTE 


<M:=A:S*.* 
LOU sinsérer] | mr: a:zxs 
Fi DKFAULT T0 À < 
SETKEYS DBASE.KEY 
M: 
DBASE DEPART 
SETKEYS STANDARD.KEY 
A: 
Sortez par <EXIT> pour retrouver le menu de RPED et créez le dernier fichier utile DEPART.CMD en pres- 
sant <f3> et en entrant : DEPART.CMD <RETURN> È 
Puis son contenu : SET DEFAULT TO A 
Une pression sur <EXIT> pour retrouver le menu de RPED et enfin <SHIFT>+<EXTRA>+<EXIT> pour I 
relancer le PCW et vérifier que tout ce que vous venez de faire est opérationnel. Si ce n'est pas le cas, repre- 
nez chaque opération décrite en vérifiant que vous n'avez rien oublié. 


Une fois lancé, DBASE cherchera fichiers et commandes sur la disquette placée en A:. Vous pouvez donc 
remplacer la disquette de lancement par votre disquette habituelle sans craindre d'erreur car le SET 
DEFAULT TO A placé dans DEPART.CMD est imparable ! 


CS. ON 
RÈHE PRATIQUE DBAS 














TESTS 
PRINCIPE 


Toute action intelligente résulte, dans son orga- 
nisation et son déroulement, de choix plus ou 
moins inconscients mais toujours effectifs. Je 
traverse la rue, je regarde à gauche, puis à droi- 
te et, ne voyant pas de voiture arriver, j'en 
déduis que la voie est libre. 

Cette prise de décision suit une question précise 
qui engendre la solution. Nous devrons fré- 
quemment demander à nos programmes de 
suivre la même démarche pour répondre à 
chaque cas qui se présentera. Ceci fait toute 
l'originalité d'une application et nous allons éplu- 
cher ce qui donne au basic les moyens d'obtenir 
cette simulation de notre pouvoir déductif. 





PRISE DE DECISION 


Nous savons que l'instruction Basic qui teste les 
cas que nous lui présentons est IF de l'anglais 
"Si". Donc, Si pas de voiture alors traverser... 


Dans le cas d'un traitement, nous manipulons 
des données sous deux formes : 

Numérique : 34, 345.45 ou 10 E-22 
Alphanumérique : Monsieur, AX34R, Janvier 


Dans un numéro précédent, nous avons déjà 
utilisé cette fonction en choisissant le titre d'une 
personne sous la forme : 


IF TITRES='"'Mr" THEN PRINT "Monsieur" 


Ce qui veut toujours dire : SI le contenu de la 
variable TITRES est égal à "Mr" ALORS afii- 





BASIC 


Par Francois PAGE 





Retrouvons-nous, une fois encore, pour investir 
en souplesse dans le monde infini de la pro- 
grammation basic. Nous poserons de nou- 
veaux jalons en savourant nos premières réa- 
lisations ludiques et amusantes grâce aux- 

quelles nous découvrirons que l'aridité n'est 
pas toujours de mise pour matérialiser ce que 
nous faisons tous instinctivement : Programmer ! 


chons "Monsieur. 

Il paraît maintenant évident qu'après Sl il faut 
ALORS que matérialise l'instruction THEN dont 
c'est la traduction littérale. 


Pour nous aider à mieux répondre à toute éven- 
tualité, le Basic prévoit même une possibilité de 
traiter le cas qui ne répondrait pas au test. 


IF TITRE$='"'Mr" THEN PRINT "Monsieur" ELSE 
PRINT ‘Madame 


Le cas est simple pour notre programme. Si ce 
n'est pas "Monsieur" alors c'est "Madame" ! 


ELSE sert alors de bouée de secours en effec- 
tuant l'instruction PRINT "Madame" dans les 
cas où TITRES n'est pas égal à “Mr”. 


Tout n'étant pas aussi carré, il faut prévoir 
d'autres tests pour mieux cerner toutes les pos- 
sibilités qui surviendrait lors d'un déroulement 
normal. Le basic le prévoit en nous proposant 
une série d'opérateurs relationnels" dont 
nous saurons tirer un judicieux parti. 


< Plus petit que 

> Plus grand que 

<>  Différent de 

<= Plus petit ou égal à 
>= Plus grand ou égal à 


Voyons maintenant dans le cadre d'un program- 
me comment faire intervenir ces opérateurs 
relationnels.… 


Au préalable, chargeons notre basic en insérant 
la disquette CP/M et en tapant BASIC <RETURN>. 
A l'affichage du caractère d'attente "OK", le 
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basic est prêt à recevoir ce premier programme. 
Exemple : 


10 INPUT ‘Quel est votre age'";A 
20 A$="MINEUR" :IF A>=18 THEN A$="MAJEUR" 
30 PRINT "VOUS ETES ";A$ 


EXPLICATIONS 


Lancé par RUN <RETURN», il effectue les 
tâches décrites ci-après : 

Ligne 10, INPUT demande l'entrée d'une valeur 
numérique (l'âge) qui sera stockée en A. 

A la ligne 20 nous mettons directement la chaî- 
ne de caractères "MINEUR" dans la variable 
alphanumérique A$ et nous testons si A est égal 
ou supérieur à 18. Si c'est le cas, A$ se remplit 
avec "MAJEUR" qui remplace alors "MINEUR". 
Ligne 30, le message “VOUS ETES" suivi de 
A$, nous permet de constater que le basic peut 
déjà servir de portier à l'entrée d'un sex-shopl 


COMMENTAIRES 


Dans le cas d'un test aussi simple que celui que 
nous venons d'essayer, il n'est pas utile de tes- 
ter les deux cas. La logique s'impose, si nous ne 
sommes pas mineur c'est que nous sommes 
majeur. Nous aurions pu aussi écrire la ligne 20 
de trois autres façons toutes aussi valables les 
l'une que l'autre : 


20 A$="MAJEUR":IF A<18 THEN A$="MINEUR" 
20 IF A>=18 THEN A$="MAJEUR" ELSE A$="MINEUR" 
20 IF A<18 THEN A$="MINEUR" ELSE A$="MAJEUR" 


Vous avouerez que pour une aussi petite opéra- 
tion, le basic offre une pléthore de possibilités et 
que seules habitudes et expérience réussiront à 
canaliser nos choix sur un type de formulation. II 
en est d'ailleurs de même dans l'usage de toute 
langue orale ou écrite où l'expression d'un mes- 
sage peut prendre une multitude de formes. 


ENCORE PLUS FORT 


Pour en revenir à ce qui se passe quand le 
basic recontre un test commençant par |F, termi- 
nons maintenant par énoncer ce qui se passe 
exactement. 


Si un test s'avère juste, le basic continue après 
le THEN se trouvant sur la même ligne. 

Si un test est faux, le basic ignore le reste de la 
ligne et passe à la ligne suivante sauf si ELSE 
se trouve sur la même ligne auquel cas il exécu- 
te ce qui se trouve après ELSE. 


Voyons comment nous pouvons utiliser cela. 


Exemple : 


Editons la ligne 20 par EDIT 20 <RETURN: et 
modifions-la comme suit : 


20 A$="MINEUR":IF A>=18 THEN A$="MAJEUR":IF 
A=18 THEN A$="JUSTE ‘"+A$ ELSE IF A>70 THEN 
A$="DEPUIS LONGTEMPS ‘"+A$ 


EXPLICATIONS 


Reprenons notre souffle et regardons ce qui se 
passe. 


Si A est plus grand ou égal à 18 alors 
A$="MAJEUR" et le programme continue en 
vérifiant si A est juste égal à 18 auquel cas nous 
concaténons (addition de chaînes de carac- 
tères) "JUSTE "et A$ pour que A$ soit égal à 
"JUSTE MAJEUR" si c'est le cas. Enfin, si A 
n'est pas égal à 18, le programme poursuit alors 
après le ELSE pour exécuter le dernier test que 
nous y avons placé et que je réservais aux per- 
sonnes du troisième âge | 


LES OPERATEURS LOGIQUES « AND 


Les tests que nous aurons l'occasion de mettre 
en place lors de la réalisation d'un programme 
n'auront pas toujours la chance d'être aussi 
simples que celui que nous venons d'essayer. 
Dans certains cas, il faudra que le programme 
fasse des choix si plusieurs conditions sont 
réunies en même temps ou, plus complexe 
encore si plusieurs le sont et d'autres ne le sont 
pas. Cette notion, encore vague pour nous 
autres débutants, va s'éclaircir rapidement avec 
l'emploi des "opérateurs logiques". 

À la différence des opérateurs relationnels dont 
je viens de vous entretenir, les opérateurs 
logiques n'interviennent pas au niveau du test 
lui-même mais plutôt au niveau de la combinai- 
son de plusieurs tests entre eux. 


Exemple ; 


10 INPUT "VOTRE AGE" ;A 

20 A$="QUEL MENTEUR !" 

30 IF A<3 THEN A$="QUELLE PRECOCITE !" 

40 IF A>=3 AND A<=30 THEN A$="AH... CES 
JEUNES !" 

50 IF A>=31 AND A<=50 THEN A$="LA PLEINE 
FORCE DE L'AGE..." 

60 IF A>=51 AND A<=100 THEN A$="OORPORE SANO 
IN MEN SANA" 

70 PRINT A$ 
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EXPLICATIONS 


Dans cet exemple, nous avons décidé d'afficher 
un commentaire adapté à chaque tranche 
d'âge. Suivant la même méthode qu'au départ, 
nous avons prévu que le contenu de A$ serait 
rempli dès le début d'un commentaire qui reste- 
rait valable si aucun des tests le suivant ne 
s'avérait être vérifié. 

Dans les tests des lignes 40 à 60, nous faisons 
intervenir l'opérateur logique AND signifiant ET. 
Donc, à la ligne 20, SI A est supérieur ou égal à 
3 ET inférieur OÙ égal à 30 ALORS A$ devient 
"jeune". 


LES OPERATEURS LOGIQUES « OR 


Le second opérateur logique pouvant nous aider 
à séparer le grain de l'ivraie s'appelle OR et il 
est la traduction anglaise de OU. Son rôle est de 
déterminer si un test OÙ l'autre se vérifie afin 
que le programme fasse ce qu'il doit faire. 


Exemple : 


10 INPUT A 
20 IF A=13 OR A-23 OR A=57 THEN PRINT "VOUS 
AVEZ GAGNE !" ELSE PRINT "VOUS AVEZ PERDU..." 





EXPLICATIONS 


Supposons que nous demandions à un proche 
d'entrer un valeur entière comprise entre 1 et 
100 et que trois valeurs seulement soit suscep- 
tibles d'être gagnantes soit 13, 23 et 57. Le test 
devra donc vérifier si la valeur entrée est égale 
à 13 OÙ à 23 OÙ à 57 sinon l'aimable partici- 
pant sera déclaré perdant. 


COMMENTAIRES 


Pour vous faire la main, vous pourrez ajouter 

quelques tests supplémentaires pour augmenter 
le nombre de valeurs gagnantes que vous chan- 
gerez de temps à autre afin de pimenter le jeu. 


LE JEU DE NIM 


Aussi appelé "jeu des allumettes" ce petit 
divertissement a connu ses heures de gloire par 
l'entremise du film "l'année dernière à 
Marienbad”" où les héros s'y adonnent sans 
aucune pudeur | 


Le principe est simple et convient tout à fait à 
notre initiation de ce mois : nous jouons contre 
l'ordinateur et nous devons, chacun notre tour, 





prendre une à trois allumettes jusqu'à ce que 
l'un des joueurs soit contraint de prendre la der- 
nière et déclaré perdant. 


gp nn ns seen nn nn nn nomme 


110 INPUT "NOMBRE ALEATOIRE"; NB:RANDOMIZE NB 
!20 A=INT (RND (0) *20)+10 

!30 PRINT "RESTE" ;A 

140 INPUT "COMBIEN EN PRENEZ-VOUS";B:B=INT (B) 
50 IF B<1 OR B>3 THEN 40 

! 60 A-A-B 

170 IF A=1 THEN PRINT "VOUS ETES LE PLUS FO 
RT !":GOTO 20 

:80 PRINT "IL EN RESTE" ;A 

! 90 C=ABS (ROUND ( (A/5-INT(A/5)*5),0)):IF C=0 T 
!HEN C=1 ELSE IF C=4 THEN C=1 

1100 IF A<S THEN C=A-1 

:110 PRINT "J'EN PRENDS";C 

1120 A=A-C:IF À=1 THEN PRINT "J'AI GAGNE !" 

| :GOTO 20 


Lennnnmmmmmmmmmnmmmmmenmmmmmemmn memes nemenenscmemcccmcmd 


EXPLICATIONS 


Le tirage du nombre d'allumettes de départ est 
obtenu à l'aide de l'instruction RND dont c'est la 
mission. Malheureusement, le Basic ne tire que 
des nombres "pseudo-aléatoires" suivant une 
progression mathématique identique si l'on n'in- 
troduit pas une valeur de départ. Nous le ferons 
à chaque lancement et l'instruction RANDOMIZE, 
plus notre nombre, mettra le compteur aléatoire 
à une valeur qui conditionnera la suite logique. 
Enfin, nous commencerons toujours les pre- 
miers en entrant un nombre d'allumettes com- 
pris entre 1 et 3 (ligne 30). Pour éviter toute per- 
turbation, nous supprimons d'éventuelles déci- 
males du nombre entré grâce à l'instruction INT 
qui ne retient que la partie entière. Exemple : 


INT (323.34433)-323 
INT (0.5)-0 
INT (12,0001)=12 


Nous contrôlons le nombre d'allumettes par les 
tests de la ligne 50 qui renverront à la question 
en ligne 40 si nous entrons une valeur sortant 
des bornes 1 à 3. 

Ensuite, décompte du nombre joué du restant 
d'allumettes (stocké en A) et jeu du programme 
suivant un algorithme dont je vous épargnerai 
les détails tant il est mauvais ! (lignes 90 et 100) 
Enfin les lignes 70 et 120 vérifient si le nombre 


[NS1e)||\|74\"Le10E 


C'est moins cher !1i 
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restant d'allumettes est égal à 1 auquel cas l'un 
des participants se retrouve heureux gagnant ou 
honteux perdant en fonction de la ligne concer- 
née. 





COMMENTAIRES 


Nous avons abordé notre premier "gros mor- 
ceau" et les tests n'ont pas chômé pour vérifier 
que nous ne trichions pas et que la partie n'était 
pas terminée. Les plus courageux d'entre vous 
pourrons tenter de décortiquer la méthode de 
jeu du programme et accessoirement en décou- 
vrir une plus efficace. Autre exercice passion- 
nant, organiser le programme pour que de 
temps à autre il puisse commencer et, pourquoi 
pas, qu'il le fasse de manière aléatoire. Enfin, 
les téméraires pourront tenter de proposer une 
autre règle de jeu à savoir : le dernier qui prend 
l'allumette a gagné. Du travail en perspective 
mais surtout de quoi patienter jusqu'au mois 
prochain. 

IF ARTICIES="FIN" THEN PRINT "AU REVOIR !" 


EXERCICES DE CONTROLE 


Chaque programme donne un seul résultat 
juste. Trouvez-le et vérifiez que vous avez trou- 
vé la bonne solution. 


Programme N°1 


10 A=4:B=5 

20 IF A>=B THEN A=A+B ELSE A=A*2 
30 IF A<B THEN A=B*A 

40 PRINT A 


Le programme affichera Q 20 0 9 Q 400 8 


Programme N°2 


10 A=2:B=4:C=6 

20 IF A=C-B AND B=C-A THEN A=B*C 
30 IF A=C-B OR A>C THEN A=A+3 

40 PRINT A 





Le programme affichera Q 24 Q 5 Q 270 2 
Programme N° 

10 A=10:B=15 

20 A=A+B:IF A<B THEN A=A*2 ELSE A=10 
30 IF A>B AND A<20 THEN A=A+20 

40 PRINT A 


Le programme affichera Q 10 Q 45 Q 30 Q 70 


RESULTATS ET COMMENTAIRES 
Programme 1 


Le résultat est 8 car, ligne 20, A n'étant pas 
inférieur ou égal à B, il est multiplié par 2 à la 
suite du ELSE et à la ligne 30, n'étant plus infé- 
rieur à B il ne pourra être multiplié par celui-ci. 


Programme 2 


Le résultat est 27. Ligne 20, les deux tests sont 
vérifiés donc A devient le produit de B par C 
soit 24. Ligne 30, l'un des deux tests étant juste 
(A supérieur à C puisque A=24 depuis la ligne 
20), l'opération A=A+3 peut être réalisée. 


Programme 3 


Le résultat est 10 car, ligne 20, À devient 25 
(A+B) et le test SI À inférieur à B ne fonctionne 
pas; ELSE est donc pris en compte et A 
devient 10. Ligne 30, A n'étant pas supérieur à 
B le programme passe à la ligne suivante où le 
résultat s'affiche. 


Conclusion, si vous n'aviez pas trouvé ces 
trois réponses et que vous n'avez pas com- 
pris pourquoi, je vous conseille de 
reprendre l'article en vous exerçant à mettre 
en place des tests dans tous les sens pos- 
sibles et imaginables.. 


Les pro- 
grammes de 
cet article se 
trouvent 
sur la dis- 
quette 
ECHO 
N°23 
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ESTERSDUT 


PAR Arnaud BISSOUDRE 


OBJET : Envoyer une commande à un port d'E/S 
(Entrée/Sortie) déterminé. 


FORMAT : OUT numéro-de-port,expression-entière 


Le 'numéro-de-port' est une ‘expression-entière' qui doit ren- 
voyer une valeur comprise entre 0 et 255. 

L'expression-entière d'une commande OUT fournit l'octet de 
données à adresser au port de sortie spécifié. L'expression doit 
renvoyer une valeur comprise entre 0 et 255 (minimum et 
maximum sur un octet pour un entier). 


TESTS DES EFFETS OBTENUS AVEC TOUS LES N° 
DE PORTS D'ESS. 


êÿ OUT 0->40,0->255 : les effets obtenus sont, apparam- 
ment, sans intérêt. Avec une boucle, pour faire varier la valeur 
entière envoyée au port, de 0 à 17 sur un pas de 1, on obtient 
successivement : à 14, le témoin lumineux du lecteur A: s'al- 
lume faiblement, à 15 il s'éteint, à 16 il s'allume clairement, à 
17 il s'éteint à nouveau, et parallèlement le moteur se met en 
route. Attention, lorsque la boucle varie de 0 à 255, à partir de 
120 environ, l'allumage du témoin du lecteur A: devient per- 
manent, le moteur tourne en continu, et plus aucune lecture 
n'est possible. Il semblerait que des effets apparaissent aussi 
sur B:, dont un changement de lecteur par défaut ?!.. Les 
effets sont reproduits de manière identique sur les n° de ports 
suivants (est-ce parce que la boucle commence par le port 

n° 0 ?...), jusqu'au port n° 40 environ. 


êÿ OUT 40->239,0->255 : rien ne se passe, apparemment. 
Mais attention : certaines extensions du PCW utilisent des 
numéros de port compris dans cet intervalle, et si celles-ci tra- 
vaillent en sortie, elles peuvent être susceptibles de réagir 
(bien ou mal ?...). Il est alors préférable de se reporter à la 
notice utilisateur de ces extensions avant de jouer les apprentis 
sorcier. D'ailleurs, certaines extensions qui ne travaillent théo- 
riquement qu'en entrée peuvent aussi réagir à des séquences 
OUT inopportunes...On peut par contre aller lire l'interface 
joystick-sonore 'MX-550' sur le port 169 ( ETAT=INP(169) ). 


êÿ OUT 240,0->255 : on obtient différents effets dont les 
conséquences sont généralement bloquantes (inhibition du cla- 
vier!). Des messages peuvent apparaître (avec O , par 
exemple) ou des effets bizarres sur l'écran (des pixels s'allu- 
ment, le curseur disparaît,.…). A éviter. Par contre, on peut 
aller lire ce port lorsque l'interface joystick MX-770 est rac- 
cordée ( ETAT=INP(240) ). 


9 OUT 241,0 (4,11,?) : retour système depuis le BASIC. 


êéÿ OUT 241,8 (14,7) _: avance imprimante d'une ligne avec 
un message 'Syntax error. 


9 OUT 241,16 (?) _: donne le message de © du Basic 
Mallard ou un 'Syntax error’ voire un ‘line does not exist' (par 
accumulation avec une boucle). 


ê$ OUT 241,autres-valeurs : rien ou bloque le clavier avec 
des pixels allumés et parfois aussi le curseur qui disparaît. 
Apparemment sans interêt. 

D OUT 242,0->255 : rien. Voir remarques sur les ports de 40 
à 239. 

ê$ OUT 243,0->126 : bloquage complet. A ignorer... 





OUT 243,127 (255) : rien. 
OUT 243,128->255 : bloquage complet. A ignorer... 


OUT 244,0->255 : rien. 


ER R 


OUT 245,0->255 : tests écran (dont certains très jolis!). 
Retour à la normale par OUT 245,91 après chaque autre 
valeur. 


&) OUT 246,0->255 : utiliser une boucle pour réaliser un 
scrolling vertical de l'écran. On peut réaliser un scrolling total 
(0 à 255) ou partiel. Pour ralentir l'effet, utiliser une boucle 
interne de ralentissement : FOR tempo=1 TO n:NEXT 
tempo , avec n=2 à 30; 2 étant une valeur pour un scrolling 
rapide, maïs correct. Pour réajuster l'affichage écran, envoyer 
une séquence 


9 OUT 246,0 après le scrolling. 
êÿ OUT 247,0->127 : rien. 
9 OUT 247,128->255 : 'flashs' écran complet. 


OUT 248,1 (16,17) : warmboot. A partir de 17 et avec 
un incrément de 16 (jusqu'à 241) on obtient le même effet. 


9 OUT 248,7 : active l'écran (après l'avoir désactivé par la 
commande suivante). A partir de 23 et avec un incrément de 
16 (jusqu'à 247) on obtient le même effet. 


9) OUT 248,8 : désactive l'écran (on le réactive avec la 
commande précédente). A partir de 24 et avec un incrément 
de 16 (jusqu'à 248) on obtient le même effet. 


9 OUT 248,9 : active le moteur du drive A: . A partir de 
25 et avec un incrément de 16 (jusqu'à 249) on obtient le 
même effet. 


9 OUT 248,10 : désactive le moteur du drive A: . A partir 
de 26 et avec un incrément de 16 (jusqu'à 250) on obtient le 
même effet. 


9 OUT 248,11 : active le buzzer. À partir de 27 et avec un 
incrément de 16 (jusqu'à 251) on obtient le même effet. 


êg OUT 248,12 : désactive le buzzer. À partir de 28 et avec 
un incrément de 16 (jusqu'à 252) on obtient le même effet. 
Toutes les autres valeurs ne produisent aucun effet. 


9 OUT 249->251,0->255 : rien. 


êg OUT 252,0->255 : avec une boucle, on obtient des effets 
sur l'imprimante (état, enclenchement du chargement, …) mais 
avec des messages d'erreurs. Apparemment à éviter (blo- 
cages!...). 


ê&ÿ OUT 253,0->255 : message imprimante ‘Erreur d'im- 
pression’. 


êÿ OUT 254,0->255 : rien. 


êg OUT 255,0->255 : message imprimante ‘Erreur d'im- 
pression’. 


Avis aux amateurs de découvertes, vous pouvez toujours réali- 
ser vos propres essais et faire parvenir à l'ECHO le résultat de 
vos recherches sur les séquences OUT. D 
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LOGI'STICK Publicité 48 65 44 55 


RUBANS POUR IMPRIMANTES 
ÎTE SUPÉRIEURE 


LONGUE DUREE EXTRA NOIRS 
PAR 3 PIECES 
60 F L'UNITE* 


{SOIT 180 F TTC PAR 3 DONT TVA 18,6% = 28,23) 


* MEMBRES DU CLUB ECHO 55 F L'UNITE 
[SOIT 165 F TTC PAR 3 DONT TVA 18,6% = 25,88] 


| ET TOUJOURS POUR 8256/8512 
LES RUBANS SUPERS NOIRS... 


PAR 3 PIECES 
65 F L'UNITE* 


(SOIT 195 F TTC PAR 3 DONT TVA 18,6% = 30,58) 


* MEMBRES DU CLUB ECHO 60 F L'UNITE 
(SOIT 180 F TTC PAR 3 DONT TVA 18,6% = 28,23] 


ET LES RUBANS COULEUR LONGUE 
DUREE POUR PCW 8256/8512 
COULEURS DISPONIBLES : ROUGE, 
BLEU, MARRON, VIOLET, VERT, ORANGE 











NOM : PRENOM : 
ADRESSE : À L'UNITE 
CODE : VILLE : 150 F° 





{(DONT TVA 18,6% = 23,52) 


LRO es * MEMBRES DU CLUB ECHO : 100 F L'UNITE 
Po (DONT TVA 18,6% = 15,68) 


0.— 
AN Ne LIVRAISON IMMEDIATE (MAXIMUM 10 JOURS) 


COMMANDE PAR LA PRESENTE : 
x 3 RUBANS NOIRS PCW 8256/8512 À 195 F LES 3 SOIT 
x 3 RUBANS NOIRS PCW 8256/8512 À 180 F LES 3 SOIT 



































x 3 RUBANS NOIRS PCW 9512 À 165 F LES 3 SOIT X165F = 

x 3 RUBANS NOIRS PCW 9512 À 150 F LES 3 SOIT x 150 F° = SIGNATURE OBLIGATOIRE 
COULEURS : ____ xROUGE _____ x BLEU _____ x MARRON _____ X VIOLET ___xVERT ____X ORANGE 

x RUBAN COULEUR PCW 8256/8512 À 150 F PIECE SOIT x150 F= 

x RUBAN COULEUR PCW 8256/8512 À 100 F PIECE SOIT x 100F° = _______ 








AJOUTEZ LES FRAIS DE PORT : TOTALGENERAL : 
15 F POUR LA FRANCE - 30 F ETRANGER ET DOM TOM (PAR AVION) 











° PRIX SPECIAL CLUB ECHO DU PCW (INDIQUEZ VOTRE N° : CE... ) ï 
Ci-joint règlement à LOGI'STICK par LICHEQUE LIMANDAT [ICCP LIVISA/CARTE BLEUE ce : Lo à 
OR O7 29 DS DS OS A D D A ES D D EE ; e Bonaparte 
Validité : / / Boîte 49 - 93153 Le Blanc Mesnil Cedex | 











Quoi de plus naturel que de vouloir à toute force sortir 
d'un labyrinthe ? C'est cette aspiration bien légitime à la 
liberté qui va vous pousser en avant dès que vous aurez 
enfoncé une touche de votre PCW. Mais à quoi bon se 
taper la tête contre les murs ? Plutôt que de foncer tête 
baissée, dirigez vous à l'aide des touches <W> et <$. 
(Les familiers de ZAZA la chenille savent déjà que <W> 
vous fera tourner à gauche et <$> à droite. Les autres 
ont intérêt à se procurer le numéro 20 sans plus tarder.) 


Mais à quoi bon la liberté si on n'a pas le sou ? Pas question 
de sortir du labyrinthe les mains vides si l'on veut, tel Thésée, 
laisser son nom à la postérité (ou plus exactement dans le 
fichier "record1.lab"). En effet, ici ou là, au détour d'un couloir 
ou au fond d'une salle borgne, vous allez découvrir des cas- 
settes contenant des écus et le héros du jeu sera celui qui 
réussira à sortir du dédale avec en poche un maximum de ces 
précieuses pièces. 


Hélas, tout serait bien simple s'il n'y avait également dans ce 
labytrinthe bon nombre de dragons cupides qui, si vous vous 
y frottez, vous délesteront de 50 000 écus ou, si vous n'êtes 
pas solvable, ne feront de vous qu'une seule bouchée ! 
Attention également aux oubliettes.… dont seuls les plus 
chanceux pourront sortir ! 


Comment gagner la sortie ? Comment éviter ce dragon ou 
cette oubliette ? En prenant un escalier dérobé, tout simple- 
ment ! Quelques secondes de patience, et vous voilà à un 
autre étage, avec de nouveaux dragons, de nouvelles 
oubliettes, mais aussi de nouvelles cassettes d'écus et surtout 
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une autre disposition des murs et des couloirs. Si cela ne 
vous plait pas, il vous faudra payer 50 000 écus pour aller 
plus haut ou plus bas. 


Dernier détail, mais pas des moindres, courir comme un fou le 
long de ces couloirs et heurter les murs, cela brûle des calo- 
ries, et votre réserve d'énergie diminue à mesure que les 
secondes passent. Il faut absolument gagner la sortie avant 
l'épuisement total si vous ne voulez pas amasser des écus 
pour rien. Heureusement, la chance voudra peut-être qu'à tel 
ou tel étage du labyrinthe, vous trouviez une réserve de 
potion magique qui vous permettra de reprendre votre chemi- 
‘nement. 


Si hélas le sort décide que vous vous retrouviez enfermé 
entre quatre murs, sans possibilité de sortie, vous pouvez 
vous cogner la tête contre ces murs jusqu'à ce que mort s'en- 
suive, mais dans un souci d'humanité, j'ai prévu la possibilité 
de mettre fin à ses souffrances en appuyant sur la touche <>. 


L'Echo, beaucoup plus généreux, a prévu, pour ceux qui 
craindraient de se perdre dans le programme comme dans un 
labyrinthe, une solution moins dramatique que le suicide : la 
disquette N° 23 . Et rassurez-vous, elle ne coûte pas 50 000 
écus! 


Pour obtenir les effets graphiques : 
Redéfinir, à l'aide du programme MATRIX2.BAS (L'Echo du 


PCW N° 9) les caractères 216 à 239 en saisissant les codes 
suivants : 


Potion magique 
216 0 0 63 15 15 15 15 7 
217 0 0 255 255 255 255 255 255 
218 0 0 184 230 198 134 134 216 
219 15 31 31 15 7 3 1 0 
220 255 255 255 255 255 255 255 0 
221 224 240 240 240 224 192 128 0 

Dragon 
222 2 3 7 13 24 48 48 948 
223 32 224 160 240 192 0 0 0 
224 0 0 0 0 0 0 0 0 
225 48 48 48 24 12 7 3 0 
226 0 28 62 51 97 192 128 0 
227 0 0 4 12 8 248 112 0 


T n° de matrice (à saisir en dernier) 
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Irésor 
228 0 0 31 112 224 192 255 192 
229 0 0 255 0 L 3 255 L 
230 0 O0 224 192 128 0 0 128 
231 224 240 255 122 63 26 15 0 
232 0 0 255 170 255 170 255 0 
233 192 96 224 160 224 160 224 0 
Escalier 
234 0 0 0 0 1 JL 15 15 
235 7 7 63 63 255 255 255 255 
236 0 0 3 3 31 31 255 255 


238 255 255 255 255 255 255 255 255 


Personnage 
239 60 60 24 126 219 60 102 195 
T n° de matrice (à saisir en dernier) 


Le fichier ainsi obtenu est sauvegardé sous le nom “laby.car”. 
Par la suite, avant le lancement du programme "laby”, ce 
fichier devra être chargé à l'aide du programme 
CHARFIC1.BAS (L'Echo du PCW N°9). 


Cependant, les caractères à redéfinir étant volontairement dit- 
férents de ceux de la CHENILLE, on peut très bien, toujours à 
l'aide de MARTIX2.BAS, modifier le fichier de caractères 
CHEN.CAR en saisissant les codes ci-dessus et en le rebapti- 
sant, pour la circonstance JEUX.CAR. Cela offre l'avantage 
de pouvoir mettre les deux jeux, et d'autres, sur la même dis- 
quete. 

Dans ce cas, il est possible de faire une disquette de jeux 
“auto-start" où le fichier PROFILE.SUB charge le basic et 
lance le programme CHARFIC1.BAS. Ce programme peut 
lui-même lancer un programme "MENU" qui permet de choisir 
le jeu (et donc le programme désiré). L'avantage est de pou- 
voir passer d'un jeu à l'autre sans devoir attendre que le pro- 
gramme CHARFIC modifie les caractères nécessaires au 
deuxième jeu. 


Programme LABYRINT.BAS 


La ligne 540 du programme comporte une boucle “FOR I = 1 
TO 50: NEXT”, qui permet de règler la vitesse de déplace- 
ment du personnage, la version la plus rapide étant obtenue 
en supprimant purement et simplement cette boucle. 


Conclusion 


Comme toujours, et si vous sortez de ce guépier, vous pour- 
rez envoyer vos meilleurs scores à Pierre Pand afin qu'il les 
inscrive en lettres d'or sur le fronton de Logi'Stick Edition où 
figure gravée l'incontounable mention : “Morts pour la partie!" 
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40°! 

50e! 

60.! 

10 MEMORY *&HF 605 + (PB) 

80°IF-FINDS (“record1i.lab")=""+THEN°120' + (KX) 
90-OPEN"I",#1,"recordl.lab"'e(6T) 
100-INPUT-#1,record,rec$'+(3E) 

110-CLOSE+#1' + (GS) 
120+'+*tt#*einitialisationsdes-variablese**#* 

130" 

140-esc$=CHR$ (27) :cls$=esc$+"E"+esc$+"H" "+ (PQ 
150-DEF+FNlocate$ (x,y)=esc$+"Y"+CHR$ (32+x) +CHRS (32+y) ? » (C2) 
160-DEF°FNwi$ (1,c,h,w)=esc$+"X"+CHRS (3241) +CHRS (32+c) +CHRS (3 
1+h)+CHR$ (31+w) ! (65) 
170-DEF+FNinver$=esc$+"p":DEF+FNnorm$=esc$+"q" "+ (3B) 
180-DEF-FNfond$ (f,p}=esc$+"c"+CHR$ (c) tesc$+"b"+CHR$S (p) ' + (B4) 
190-hor$=CHR$ (151) +STRINGS (7,CHR$ (154) )+CHR$ (157) :char$=CHR$ 
(239)'*(TY) 

200-GOSUB+1680 +++! (vers-la-formation-du-labyrinthe-pour-la-p 
age-titre)'°+(40) 

208-PRINT-FNlocate$ (30,33) ; "LE+LABYRINTHE® INFERNAL":FOR°i=le 
TO+1000:NEXT' » (C3) 
210-PRINT-FNlocate$ (31,0); “Appuyez-sur ‘une-touche"' + (D4) 
220er=rt1e:b$=INKEYS: IF-b$=""+THEN°220*ELSE+RANDOMIZE+r:PRIN 
TeFNlocate$ (30,0) ;esc$; "M"; ‘+ (U9 
230-PRINT-FNfond$ (63,0); FNlocate$ (10,25) ;FNinver$; "Voulez-v 
ous-des-explicationse?+-0/N+";FNnorm$' + (JP) 
240+FOR°1=1 TO +500 :NEXT' * (YT) 

250 +b$=LOWERS (INKEY$) : IF-b$<>"o" -ANDeb$<>"n"+THEN°PRINT*FN1o 
cate$ (10,25); "esossssssesoesoesoossossossosenese et: PORei=] 
+TO+500+ :NEXT : GOTO 230 +! + (IM) 

260°1F+b$="0" +THEN+GOSUB+3230++++-e+'verseles-explications'+ 
(B6) 

210-ca1=10000 : butin=0 : d=3:depx=25: depy=2 + (W8) 

280 -GOSUB + 1680" + (KP) 

290e!*tttte JEUJettt*t 

300" 
310-PRINT-FNnorm$; FNlocate$ (depx, depy) ;char$:FOR°i=1+T0+ 500: 
NEXT' + (3A) 

320+a$=INKEYS : IFea$=""*THEN-PRINT-FNlocates (depx, depy) ; CHR$ { 
32) :FOR° 1-1 TO +500: NEXT: GOTO+ 310! + (60) 

330+att=1" + (DP) 

340°x$=CHR$ (depx}) :y$=CHRS$ (depy] ! » (FV) 
350x=ASC(x$) :y=ASC (yS)'e(11) 
360+1F°a$-"f".THEN-PRINT-FNlocate$ (30,1) ;"Vouseavez-tout-per 
due !+Voulez-vous-une-autre-chance*?";esc$; "K":GOTO+2410' + (7R 
) 
310-1Featt<>1+THEN-PRINT-FNlocate$ (29, 30);esc$;"K":a$=INKEYS 
"+ (PK) 

380+att=0" + (DT) 

390+d=d+ (a$="w")-(a$="$") "+ (HY) 
400-1F+d>3+THEN°LET-d=0" + (WT) 

410-IF-d<0+THEN°LET-d=3' + (WS) 

420-y=y+2* ( (d=2)-(d=0) ) ! + (WG) 

430+x=xt ((d=3)-(d=1)) + (TX) 

440-ON-ca{x, y) *GOSUB* 590,630, 700,940,1140,1360, 1600! + (0H) 
450+1F epb=1 «THEN + LET + pb=0: GOTO + 540 +ELSE+ IF + pb=2 + THEN LET +pb= 
0:GOTO+310" + (ZE) 

460-PRINT-FNlocate$ (x, y} ;char$"+ (FM) 

4170 °x$-CHR$ (x) +x$' + (PX) 

480-y$=CHRS (y) +y$" » (01) 
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490+x=ASC (RIGHTS (x$,1)]}' + (0M) 

500+y=ASC (RIGHTS (y$, 1)" » (0G) 
510+x$=LEFTS (x$, LEN(x$)-1)'+(41) 
520-yS=LEFTS (y$, LEN(y$)-1) + (45) 
530*PRINT-FNlocates (x, y) ;CHR$ (32) ' + (IT) 
540+cal=cal-1+:PRINTeFNlocate$ (30,13) ;cal:FOR*i*=e1+TO*5S0:NE 
XT'.{(PF) 

550-GOT0 +350! + (H7 

560" 

570-'***ttkerencontre-d'obstacles-**#*# 

580" 

590-'**#*.touche-unemure**** 
600-cal=cal-100:PRINT-FNlocate$ (30,2); CHR$ (7); "Calories-:";c 
al'+(TW) 
610-IF-cal<=0+THEN-PRINT-FNlocate$ (29,1) "Vous-etes-à+bout-de 
forces-!-Voulez-vous-une-autre-chance-?";esc$;"K":GOTO+2410 
'° (DZ) 

620+d=dt1 :pb=1:RETURN' + (ZX) 

630+!'+t*etrouve-trésor-*#* 

640! 

650+butin-butint1'+(U0) 
660-PRINT-FNlocate$ (29,2); "Butine:";10*butin;"000-écus"; STRI 
NGS (2,CHR$ (7) )'+ (C3) 
670-PRINT-FNlocate$ (x, y-1) ; STRINGS (3,CHR$(32)}:ca(x,y)=0:1F+ 
ca(xtl,y)=2eTHENeLETeca(xt1,y)=0:PRINT-FNlocates (xt1,y-1);ST 
RINGS (3,CHR$ (32)) *ELSE+LET-ca (x-1,y)=0:PRINT-FNlocates (x-1,y 
1); STRINGS (3, CHR$S (32))'°(9Y) 

680 RETURN  (HQ) 

690" 

700+'+*#-oubliettese*+* 

710! 

T20-PRINTeSTRINGS (3,CHR$ (7) ) "+ (96) 
T30-PRINT-FNlocates (x, y) ;char9' + (FM) 

T40ex1=x:y1=y" + (LV) 

750°xS$=CHR$ (x) +x$' + (PY) 

760 y$=CHRS (y) +y$' * (02) 

170+x=ASC (RIGHTS (x$,1})'°{0N) 

180-y=ASC (RIGHTS (y$, 1) ) ‘ + (00) 

790 °x$=LEFTS (x$, LEN(x$}-1) ! + (4B) 
800°y$=LEFTS (y$, LEN (y$)-1) ' (46) 
810*PRINT-FNlocate$ (x, y) ; CHR$ (32) ' + (IU) 
820+sortie=1+INT (RND*10) :IF-sortie>4®THEN°820' (32) 
830-PRINT-FNlocate$ (29,30); "Quel -couloirechoisissez-vous®?°N 
ord, Sud, Est ‘ou+Ouest + ?"! + (Z0 

840 -rep$=LOWERS (INKEYS$) : IF +rep$="" THEN 840 +! + (WM) 
8501F-rep$="n"+THEN*LETerep=1*+ELSE+IFerep$="s"+THEN*LET-rep 
=2*ELSE+IF+rep$="e"+THEN°LET-rep=3*ELSE* IF + rep$="o"+THEN*LET 
+rep=4*ELSE +840" + (RC) 

860-1F-rep<>sortie®THEN°920'°(17Y) 
870-PRINT-FNlocate$ (29,30) ; "Bravo: ! -Reprenez-votre-routecet * 
faites-attention!";esc$;"K"'e(3F) 

880 -nb=1 :GOSUB+2040" + (TA) 
890-PRINT-FNlocates (x1,y1-1]);CHR$ (32) ;char$;CHRS (32) :ca(xl,y 
1)=0:1Feca(xl+1,y1)=3eTHEN°LETeca(x1+1,y1)=0:PRINTeFNlocate$ 
(x1#1,y1-1) ; STRINGS (3, CHRS (32) } *ELSE»LET+ca (x1-1,y1)=0:PRINT 
+FNlocate$ (x1-1,y1-1) ; STRINGS (3, CHR$ (32) ) "+ (YL) 

900 depx=x1 :depy=yl:d=3:att=1:pb=2:a$=""! + (ND) 

910 RETURN + (HM) 
920-PRINT-FNlocates (30,1); "Vous-avez-tout -perdu-!*Voulez-vou 
seune-autre-chance-?";esc$;"K*:GOTO*2410" + (N3) 

930! 

940-'***edragons**t 

950! 

960 PRINT + STRINGS (3,CHR$ (7) ) ‘ + (9C) 











970°x1=x:y1=y" + (M0) 

980x$=CHRS (x} +x$! » (03) 

990+Y$=CHRS (y} +y$" + (07) 

1000-x=ASC (RIGHTS (x$,1}}'°+(1M) 
1010+y=ASC (RIGHTS (y$,1))'+(1P) 
1020+x$=LEFTS (x$, LEN(x$) -1) "+ (5A) 
1030+y$=LEFTS (y$, LEN(YS)-1)'+(5E) 
1040*PRINT-FNlocate$ (x, y) ; CHRS (32) ' » (K2) 
1050-IF-butin<SeTHEN°1130! (18) 
1060-PRINT-FNlocate$ (29, 30) ; "Votre-vie-contre-50-000+écuse?+ 
D'accorde?"!+{(2F) 
1070+rep$=LOWERS (INKEY$) : IFerep$=""+THEN*1070' + (22) 
1080+1Ferep$=e"n*+THEN°1130°ELSE+IFerep$<>"o"*THEN*1070°ELS 
E+LETebutin=butin-5:PRINTeFNlocate$ (29,2); *Butine:+*;10*buti 
n;"000+écus ."" + (PB) 

1090nb=1:GOSUB+2120" + (UF) 
1100+PRINT-FNlocate$(x1,y1-1};STRINCS (3, CHR$(32)):ca{xl,y1}= 
0:IFeca(x1+t1,y1)=4THEN°LETeca (x1t1,y1)=0:PRINT-FNlocate$ {xl 
#1,y1-1) ; STRINGS (3, CHR$ (32) ) *ELSE*LET+ca(x1-1,y1)=0:PRINT*FN 
locate${x1-1,y1-1)} ; STRINGS (3, CHR$ (32) )' + (U3) 
1110+depx=x1:depy=yl1:d=3:a$="":att=1:pb=2:RETURN' + (CH) 
1120+1Ferep$<>"n"+THEN+1070" + (29 
1130*PRINT-FNlocate$ (30,1); “Vous-avez-tout *perdu-!+Voulez-vo 
useune*autre+chance*?";esc$"K":GOTO+2410' + (MM) 
1140+'+ttttearrivées*##4 

1150°' 

11 60-PRINT+STRINGS (6, CHR$ (7) ) ‘ + (AK) 

170+x$=CHR$ (x) +x$! + (R7 

180ey$=CHRS (y) +y$" » (RB) 

1190ex=ASC (RIGHTS (x$,1))'° (1H) 
1200+y=ASC (RIGHTS (y$,1))'° (10) 

1210exS$=LEFTS (x$,LEN(x$)-1)'°(5B) 
1220+y$=LEFTS (y$, LEN(y$)-1) "+ (5F) 
1230-PRINT-FNlocate$ (x,y) ; CHRS (32) ' + (K3 
1240*PRINT-FNlocate$ (29, 30}; "Voulez-vous+sortire?";esc$;"K"! 
(53) 

1250erep$=INKEYS : »IFerep$=""eTHEN° 1250» (K) 
1260°1F-rep$-"n"*THEN-depx=x:depy=y:d=3:att=1:pb=2:a$="":RET 
URN' + (2H) 

1270+1F-rep$<>"o"+THEN°1250" + (26) 
1280+1F*10*butin<10*record®THEN*1340' + (K4 
1290-PRINT-FNlocate$ (30,2) "Bravo, vous-avez-battu*le-record! 
«";esc$;"K"; :INPUT- "Quel -est-votre-nom-";rec$' + (T8) 
1300-record=butin! + (UA) 

1310*OPEN°"0*,#1,"recordl.lab"'+(9J} 
1320-PRINT-#1, record, rec$"' * (45) 

1330-CLOSE-#1'+(19) 
1340*PRINT-FNlocate$ (29,30); "Votre-score-:";10*butin; "000-éc 
us. ‘On-recommence-?";esc$; "K"! + (08) 

1350+GOT0°2410' + (JT) 

1360-'*+t-escalierse*** 

1370°! 

1380-PRINT+STRINGS (3, CHR$ (7) "+ (AL) 
1390-PRINT-FNlocate$(x,y);char$'+(H1) 

1400°x1=x:y1=y"* (N1) 

1410°x$=CHR$ (x) +x9" * (R4) 

1420+y$=CHR$ (y) +y$' » (RB) 

1430+x=ASC (RIGHTS (x$,1))'+(1T) 

1440+y=ASC (RIGHTS (y$, 1)) "+ (1W} 
1450°x$=LEFTS (x$, LEN(x$)-1) "+ (5H) 
1460°y$=LEFTS (y$, LEN(Yy$)-1) "+ (5L) 
1470-PRINT-FNlocates$ (x, y) ; CHR$ (32} ! + (K9} 
1480*PRINT-FNlocate$ (29, 30) ; "Onemonte-ou-on-descend?°(M/D)" 
sesc$;"K*'+(0F) 


js 
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1490+rep1$=LOWERS (INKEYS) : IFerep1$<>"m"+ANDerepl$<>"d"«THEN° 
1490+++!+{RR) 

1500*ERASE ca, posi ' + (TD) 

1510°GOSUB*1680' + (LY) 

1520+IFebutine<5eTHEN°1570'e{11 
1530°IF+repl1$="m"*THEN-PRINT-FNlocates (29, 30) ; "50-000-écus+p 
our “monter *d'un*autre*étage. + (0/N) "*ELSE+PRINT*FNlocates (29, 
30); "50-000-écus ‘pour «descendre-d'un-autre-étage.+ (0/N)"!+(P 
C) 
1540-PRINTeFNnorm$; FNlocate$(x,y) ;char$:FOR*i=1+TO+500:NEXT" 
+ (S0) 
1550+rep$=LOWERS (INKEYS) : IFerep$=""+THEN°PRINT-FNlocates (x, y 
}; CHR$ (32) : FOR +1 =1 + TO + 500: NEXT:GOTO + 1540 + (KC) 
15601Ferep$<>"o"ANDerep$<>"n" THEN +1540+ELSE+IF-rep$="o"*TH 
EN°LETebutin=but in-5:GOTO+ 1500! + (xX5} 
1570+depx=x:depy=y:d=3:att=1:ph=2:a$=""! + (V3) 
1580-ca(x,y)=0:PRINT-FNlocates (x,y-1) ; CHR$ (32) ;FNlocate$ (x,y 
+1); CHR$ (32): IFeca(xtl1,y)=6*THEN°LET+ca(xt1,y)=0:PRINT-FNloc 
ateS (xt1,y-1) ; STRINGS (3, CHRS (32) } ELSE+LET+ca (x-1, y}=0:PRINT 
+FNlocate$ (x-1,y-1) ; STRING$ (3, CHR$ (32) )'°(07 
1590-RETURN ' + (J3) 

1600+'#**etrouve-potion®+*#* 

1610°! 

1620 PRINT +STRINGS (2, CHR$ (7) ) ‘ + (AH) 

1630-cal=cal+1000" + (PF) 
1640-PRINT-FNlocate$ (30,2); "Calories-:";cal'° (YO) 
1650-PRINT-FNlocate$ (x,y-1) ; STRINGS (3,CHR$ (32)}:ca(x,y)=0:1F 
+ca(xtl,y)=7THEN°LETeca (xt1,y}=0:PRINTeFNlocate$(x+1,y-1);S 
TRINGS (3, CHRS (32}) *ELSEeLETeca(x-1,y)=0:PRINT-FNlocate$ {x-1, 
ÿ-1}: STRINGS (3, CHR$ (32) } "+ (BE) 

1660-RETURN + (J1) 

1670! 

1680-'#***-Formation-du*labyrinthe-t### 

1690! 

1700enb=5" + (CQ) 

1710+DIMeposi (7) "+ (06) 

1720+DIMe+ca (28, 90) ' + (00) 
1730-PRINT-FNfond$ (0, 63) ;c1s$;esc$t"f"!+(OD) 
1735e1F+page=0*THEN*PRINT-FNlocate$ (0,2) ;"+Christian-NESEN+p 
résentee":+FOR+i=1+T0°1000:NEXT:GOTO+ 1750" + (J0) 
1740*PRINT-FNlocate$ (0,2); "+LE+LABYRINTHE + + INFERNALeeevesose 
sesersoreseseseseessocscessoceseese$eC, eNESEN*1088«"! + (1D) 
1750-PRINT-FNinver$;FNlocate$ (0, 1) ; STRINGS (90, CHRS (154) ‘+ {L 
J) 

1760-FOR°1=0°T0°90: *LETeca(1,1)=1:NEXT' + (KO) 
1770-FOR+1=2+T0+27: +PRINTeFNlocates (1, 0) ;CHR$ (149) ;FNlocate$ 
(1,90) ;CHR$ (149) :LETeca(i,0}=1:ca(i,90)=5:NEXT' + (OM) 
1780°FOR*h=0°TO+8' + (NB) 

1790°FOR°i=1+T0-5! + (NB) 

1800+posi (1}=INT (RND*100) : IF-posi (1)>10°THEN°1800! + (5N} 
1810-FOR°j=1*TO+i-1:IF+posi (j}=posi (1) *THEN°LET- j=i-1 : GOTO*1 
800:ELSE*NEXTe j' + (BI) 

1820+FOR°k=1+TO+2' + (N4) 
1830*PRINT-FNlocate$ (3*htk+1, 4+B*posi (1) } ; CHR$ (149) ' + (90) 
1840+LET-ca(3*htk+1,4+B*posi(i))=1" (F2) 

1850°NEXTek! « (GO) 

1860-NEXT-i" + (GN) 

1870FOR°i=1-TO°5' + (NA) 

1880-posi (i)=INT (RND*10)'+(31} 

1890+FOR° j=1TOei-1:IF-posi (j}=posi (1) *THEN°LET: j=i-1 : GOTOe1 
880:ELSE*NEXT + j' + (BY) 
1900°1F-h=B+THEN-PRINT-FNlocate$ (27,0) ; STRING$ (90, CHR$S (154)} 
:FOR°k=0 «TO +90: LET + ca (28, k) =1 : NEXT + k: GOTO + 1 930! + (NG) 
1910-PRINT-FNlocates (3th+4,4+8*posi (1) }:hor$' + (07) 


1920+FOR+k=0+TO+8: LET+ca (3*h+4,k+4+8*posi(i}}=1:NEXTek'e (AW) 
1930+NEXTei,h'+{JT) 

1940! 

1950+'***.placement ‘desetrésorse**# 

1960°" 

1970-FOR+h=1+TO+2*nb' + (SD) 
1980+y=6+8*INT (RND*10) :IF+y>B0 THEN 1980 + (PB) 
1990ex=2+3*INT (RND# 10) :IF°x>27eTHEN° 1990! + (P3 
2000+IFeca(x, y) >0+THEN°1980' + (4E) 
2010+PRINT+FNnorm$; FNlocate$ (x,y-1} ;CHR$ (228) ; CHR$ (229) ; CHRS 
(230); FNlocate$ (xt1,y-1) ; CHR$ (231) ; CHR$ (232); CHR$S (233) :LETec 
a(x,y)=2:ca(xt1,y}=2"+ (AU) 

2020+NEXT' + (EB) 

2030°" 

2040-'*t*eplacement ‘des-oubliettes-+*+# 
2050+FOR+h=1+TO+nb' + (PJ) 
2060°y=6+8*INT (RND*10) :IFy>B0+-THEN 2060 + (OR) 

2070+x=2+3* INT (RND*10) :IFex>27eTHEN°2070' + (OJ) 
2080+1Feca (x, y} <>0+THEN*2060! » (4C) 
2090+PRINT-FNinver$;FNlocate$ (x,y-1);"**e"*;FNlocate$(xt1,y-1 
j;"ees";:FNnormS: LETeca(x,y}=3:ca(xtl,y)=3" + (G4) 

2100°NEXT: IF-nb=1°THEN*RETURN'! + (CO) 

2110°! 

2120+'*t*-placement ‘des-dragonse#**# 
2130+FOR°h=1:TOnb' (PI) 

2140+y=6+8* INT (RND*10) :IFey>B0+THEN +21 40! + (OP) 

2150+x=2+3* INT (RND* 10) :IFex>27eTHEN°21 50" + (OH) 
2160+IFeca(x, y) 0° THEN°2140!' + (4A) 
2170+PRINT+FNnorm$; FNlocate$ (x,y-1} ; CHR$ (222) ; CHR$ (223) ; CHR$ 
(224); FNlocate$ (xt1,y-1) ;CHR$ (225) ; CHR$ (226) ; CHR$ (227) :LETec 
a(x,y}=4:ca{xtl,y)=4"+(B5 

2180°NEXT: IFnb=1+THEN*RETURN' + (CH) 

2190°' 

2200+'***-placement ‘de-la-potione##*** 

2210+1F+ INT (RND* 10) «MOD+2=0 THEN +2270! + (H4) 

2220+y=6+8* INT (RND*10) :IF+y>B0+THEN 2220 + (ON) 
2230+x=2+3*INT (RND*10) :IF°x>27°THEN°+2230 "+ (OF) 
2240+IFeca (x, y) >0+THEN°2220" + (48 
2250*PRINT+FNnorm$; FNlocate$ (x,y-1) ;CHR$ (216) ; CHR$ (217); CHR$ 
(218); FNlocate$ (xt1,y-1) ;CHR$ (219) ; CHR$ (220) ; CHR$ (221) :LET-c 
a(x,y}=7:ca(xt1,y)=7" + (BA) 

2260. 

2270+'***+placement ‘des-escalierse*##* 
2280+FOR+h=1+TO+nb' + (PO) 

2290+y=6+8* INT (RND* 10) : IF-y>BO*THEN+2290'+(P1) 

2300°x=2+3* INT (RND* 10) :IFex>27°THEN°2300! + (0B) 
2310+1F+ca(x, y) C0+THEN°2290! + (4D) 
2320*PRINT+FNnorm$; FNlocate$ (x,y-1) ;CHR$ (32) ; CHR$ (234) ; CHRS ( 
235); FNlocates (x+t1,y-1};CHR$ (236) ; CHRS (237) : CHR$ (238) : LETeca 
(x,Y)=6:ca(xt1,y)=6"+ (A3) 

2330+NEXT' + (EF) 

2340" 
2345+IF+page=0*THEN*LET+page=1 :ERASE-ca, posi : GOTO+2380vee! {t 
itre)'+{(U3) 

2350-PRINT-FNlocate$ (29,2);"Butine:";10*butin;"000eécus."'+{ 
J5) 

2360-PRINT*-FNlocate$ (30,2); "Calories-:";cal'e (YO) 
2370-PRINT+FNlocate$ (30, 30); "Recorde:";10*record;"000-écus. * 
"i"(irec$;")";esc$;"K"+!+(K2) 

2380°RETURN' + (J1} 

2390°" 

2400+!***eFIN°DE+PARTIE-##* 
2410+PRINT+STRINGS (20, CHR$ (7}); "+ (DE) 
2420rep$=LOWERS (INKEYS) :IP-rep$="" THEN +2420ELSE + IF +rep$=" 


LABYRINTHE + L'ECHO DU PCW N°23 RE us 


O"+THEN°2430°+ELSE + IF +rep$="n"+THEN*2440+ELSE +2420" + (JP) 
2430+ERASE + ca : ERASE +posi :GOTO +270" + (IM) 
2440-PRINT-c1s$;esc$;"e";FNfond$ (63,0) "+ (OR) 
2450RUN°“menu"! + (MX) 

2460! 

2470." 

2480°" 

2490°" 

3220! 

3230+'2*44 44 + EXPLICATIONS + # # * # à 

3240-PRINTeFNwW1$ (4,4,23,81);c15$"' + (DM) 
3250-PRINT:PRINT"Vous-etes-perdu-dans-un-labyrinthe-dont-la+ 
sortie-se-trouve-à-droite-de-l'écran.":PRINT:PRINT-"Au-dépar 
t,-vousevous-trouvez-dans-la+partie-qauche, «etvotre-but-est 
‘de-sortir":PRINT*"en-amassant unemaximum-d'argent .":PRINT'e 
(KD) 

3260PRINTe"Cet argent, “vousele-trouverez*dans-des*coffres*c 
ommecelui-ci-:"!+ {JT} 

3270PRINTeTAB (35) ; CHRS (228) ; CHR$ (229) ; CHR$ (230) :PRINT*TAB (3 
5); CHR$ (231); CHR$ (232) ; CHRS (233) '» (25) 
3280-PRINT-"Chaque-coffre-contient+10+000-écus.":+PRINT:PRIN 
Te"Cependant,":PRINT-TAB(5]);"ce-labyrinthe-est peu-accueilla 
nt.-Il-est-peuplé*de-dragons-:""+ (15) 

3290-PRINTeTAB+ (35) ;CHR$ (222) ; CHRS (223); CHR$S (224) : PRINT-TAB | 
35) ;CHR$ (225) ; CHR$ (226); CHR$S (227) '+(21) 
3300+PRINT-"Si-vous-en-rencontrezeun, *il-ne-vous-laissera*la 
vie-sauve-que+si-vouselui":PRINT"donnez-lasomme*de+50*000+ 
écus.":PRINTe"Si-vous-refusez-ou+si+vousen'etes-pas-solvable 
,*vous-avez-perdu."'+ (AN) 
3310*PRINT:PRINT:PRINT*TAB:+ (40) ; "Appuyez*sureune-touche-pour 
continuer"; ! + (JX) 
3320*b$=INKEYS : IFeb$=""+THEN+3320+ELSE+PRINTec15$" + (2A) 
3330*PRINTe"Dansece-labyrinthe,*iley-a-aussiedes-oubliettes® 
comme-celle-ci*:":PRINT:PRINT-TAB(35) ; FNinver$; STRINGS (3,CHR 
$(32)) ;FNnorm$ : PRINTeTAB (35); FNinver$; STRINGS (3,CHR$ (32) ); FN 
norm$' * (U2) 

3335*PRINT:PRINT-"Sivous-y-tombez, ‘toutn'est-peut-etre-pas 
+perdu*..."'+ (BV) 
3340-PRINT-"Au-fond-de-cette-oubliette,*il-y*a-quatre*couloi 
rse:euneauenord, ‘unau+sud,":PRINT-"un-è-l'est-et-le-dernier 
‘à-l'ouest.‘Un-seul «de-ces-couloirsemène-à*laliberté.":PRIN 
TeTAB (5); "Sievousele-trouvez, +vous*pouvez-poursuivre*votreer 
oute."'e (EL) 
3350-PRINT:PRINT-"Aemesure*que-vous*vous ‘déplacez, *vous*vous 
+fatiquezet-perdez-des-calories.":PRINT-"De-plus-chaque-foi 
seque-vous-heurtezeun-mur, *vous*perdez*100-calories."+ (C0) 
3360-PRINT:TAB (5); “Si-vous-ètes-àäà-bout «de*forces-avant ‘de*ga 
gner-la-sortie, *vous-avez-perdu.":PRINT*"Heureusement, *il-se 
+peut-que-dans-le-labyrinthe-ileyaitede*la-potion-magique." 
le (CU) 

3370°PRINTe TAB: (35) ;CHR$ (216) ; CHR$ (217); CHR$ (218): PRINT: TAB+ 
(35); CHR$S (219): CHRS (220) ;CHR$ (221) ' + (26) 
3380-PRINT-"Sievouseréussissezeà*l'atteindre, ‘vous+pourrezer 
efaire-des-réserves-d'énergie*et":PRINT-"poursuivre-votre*ro 
ute."'e(70) 
3390-PRINT:PRINT:PRINT-TAB+ (40); *Appuyez*sur*une-touche*pour 
‘continuer";'+{K5 

3400+b$=INKEYS : IF-b$=""°THEN° 3400*ELSE+PRINT-c15$" + (28) 
3410-PRINT-"Enfin, ‘ce-labyrinthe-comporte-également ‘des*esca 
liers-dérobése":PRINT:PRINT-TAB (35) ;CHR$S (32) ; CHR$ (234) ; CHRS ( 
235) :PRINT-TAB+ (35) ;CHR$S (236) ; CHRS (237) ; CHR$ (2381 :PRINT' * (4B 
) 

3420-PRINT- "Vous -pouvez-emprunter-ces-escaliers-pour*vous*re 
ndre-ä-uneautre-étage-où":PRINT"vous-découvrirez-de-nouveaux 





«dragons-et-oubliettes, -mais-aussi-des-coffres"'+(90) 
3430-PRINT-"d'écus, *et-peut-etre-de*la-potion-magique+...":P 
RINT' + {XR) 
3440-PRINT-"Lorsque-vous-arrivez-à-un*autre-*étage, ‘Vous *+pouv 
ez-y-rester,-ou, moyennant +1a":PRINT*"somme-de*+50+000*écus, 
continuer-à+monter-ou-a-descendre-vers-un-étage-plus": PRINT" 
accueillant .*'+(5K) 
3450*PRINT:PRINT+"Lorsque-vous-atteignez-la*limite-droite-du 
labyrinthe, +vous-pouvez-soit-sortir":PRINT"si-vous-ètes*sat 
isfait-de-votre-score, *soitrester-et-continuer.*'+ (GE) 
3460°PRINT + :PRINT + ! + (TD) 
3470-PRINT:PRINT:PRINTeTAB+ (40); “Appuyez-sur-une-touche*pour 
‘continuer";'+(K4 

3480-D$=INKEYS :IFeb$=""+THEN* 3480*ELSE+PRINT-c15$" + (20) 
3490-PRINT-"Pour-vous déplacer, *vous-devez-utiliser-lesetouc 
hese'w'eete'$!e*!e (GR) 
3500-PRINT:PRINTeTAB(5)*;"Si-vous-appuyezesur*'w!,+vous*tour 
nez-à-gauche."!'+ (GA) 

3510-PRINT-TAB (5) ; “Si evous-appuyezesure'$!,+vous-tournez-à*d 
roite."'+(22) 
3520-PRINT:PRINT"ATTENTION-droite-et-gauche-s'entendent par + 
rapport-à*la-trajectoire+suivie, ":PRINT-"*etenon-par rapport: 
àl'écrane!l*!+{CY) 
3530-PRINT:PRINT+TAB+ (5) ; “Pour ecommencer, *ainsi*qu'après-tou 
teincident, + (dragon, *oubliette, *etc.},*si":PRINT"vous -appuye 
zesuretoute-touche-autre-que-'u'+oue'$'+,vous-vous-déplacere 
2"! {PC) 

3540°PRINT-“vers-le-haut+de-l'écran."'+ (MB) 
3550+PRINT:PRINT"Sivous-heurtez-un-mur, ‘vous+constaterez*qu 
létant-un-peu-groggy, *vous-avez":PRINT-"tendance-ä-tituber, * 
alors-faites-attention-!"'+ (40) 
3555-PRINT:PRINT-*En-cas+de-désespoir*total, *vous-pouvez+met 
tre-finà-vos-souffrances.":PRINT*"il evousesuffit-d'appuyer* 
surela-touche-'f'."'+{(N9) 
3560-PRINT:PRINT-TAB (40) ; “Bonne-chance-pour*le-recorde!"'+{K 
8) 
3570PRINT:PRINT-TAB* (40) ; "Appuyez sur eunetouche-pour*conti 
nuer";'+(71) 

3580-D$=INKEYS :IFeb$=""+THEN° 3580! (C6 

3590-PRINT-FNwiS (0,0, 32, 90) ! » (4P) 

3600-RETURN' + (IX) 


ATTENTION ! 
A COMPTER DU NUMERO 24 


L'ECHO PASSE A 64 PAGES (+ 15%) 


ET SON PRIX AUGMENTE DE 3 F (+ 10 %) 


Le prix des abonnements 
reste inchangé jusqu'au : 
8 Novembre 88 


Abonnez-vous ! 
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O 


Service Entreprises: %f 


N'attendez pas pour inscrire votre entreprise en retournant ce jour le bon ci-dessous à : 
LOGI'STICK - CAPN LE BONAPARTE - BOITE 49 - 93153 LE BLANC MESNIL CEDEX 


SAIS 
e 
SOIGNEZ VOTRE COMMUNICATION 
° 


GAGNEZ DU TEMPS... 


ET DE L'ARGENT ! 





‘Au service de ses lecteurs, L'Echo du PCW met ses compétences, son savoir-faire 
et son important fichier de fournisseurs au service des entreprises de toutes tailles. 


Entièrement gratuit, ce nouveau catalogue ‘‘entreprise‘" est remis à jour et envoyé 
régulièrement à toute entreprise ou profession libérale qui en fait la demande. 


Les prestations de ce service sont regroupées 
dans un catalogue spécial qui sera adressé à toute demande 
lbellée sur papier à en-tête mentionnant les numéro de SIRET 
et d'APE lou titre pour les professions libérales), 


PC/PCW la compatibilité est possible avec le service 
entreprise avec un nouveau service de transfert de fichiers 
soit : recopie de fichiers CP/M vers MS/DOS 

ou l'inverse (MS/DOS vers CP/M). 


Ce qui sort de votre entreprise est à son image alors soignez-la avec : 
Papier à en-tête personnalisée en continu 

Facture à en-tête personnalisée en continu 

et tout type de formulaires personnalisés en continu. 


Le service entreprise, c’est aussi une liste de prestataires 
compétents pour résoudre vos problèmes quotidiens comme : 
Programmes sur mesure (tous langages) 

Connexions difficiles 

Maintenance et formation 


De nombreux revendeurs accordent des remises aux entreprises, 
collectivités et professions libérales. Le service entreprise vous en 
donne la liste actualisée. 


PE és at nR en en 


STE : FORME JURIDIQUE"® : ______. CAPITAL": 











ADRESSE COMPLETE : 





NOM ET PRENOM DU RESPONSABLE ACHAT INFORMATIQUE : MR° - MME® - MELLE” : 





ACTIVITE PRINCIPALE : 





NOMBRE DE PCW EN SERVICE DANS L'ENTREPRISE : 


* FACULTATIF - © RAYEZ LA MENTION INUTILE 








LE CLUB DU NOUVEAU... 


D'abord, un nouveau président : lecteur assi- 
du et collaborateur de l'ECHO, Arnaud BIS- 
SOUDRE vient de prendre en charge la prési- 
dence du Club, et ce, depuis le bulletin 7. 
Jeune et dynamique, il espère bien être à la 
hauteur de ses nouvelles responsabilités 
pour le plus grand bien des Gentils membres 
actuels et futurs. 





[Ne "| BOGART (Je ae] | HUMPHREY 
ect AU 31/02/1989 (O7 YEN 674894 


Cette carte strictement personnelle SIGNATURE XXX 
donne droit a toutes les activites du club 


LE BULLETIN DU CLUB, DU NOUVEAU... 





Bimestriel, il propose de plus en plus de 
bonnes choses pour les mordus du PCW. 
Véritable bulletin de liaison entre tous les 
G.M., il comprend les rubriques suivantes : 
les NEWS" (nouvelles du club et d'ailleurs.….), 
des trucs et astuces inédits, des bancs d'es- 
sais exclusifs, les produits club (produits 
informatiques et autres produits ou presta- 
tions proposés par des G.M., à des prix... 
Club!), les revendeurs ‘Point Club' qui font 
des remises et des cadeaux aux G.M., des 
programmes et les meilleurs trucs des G.M. 


DES EXEMPLES ? 


Les succès du service entreprises (transfert et 
papier à en-tête personnalisée) sont aussi 
proposés aux G.M. à des prix encore plus 
fous ! 

Mais le Club propose aussi des inédits 
comme le super assembleur-désassembleur 
DEVPAC 80, l'introuvable ‘Univers du PCW' 
des éditions SORACOM et d'autres petites 
choses à découvrir dans le tarif Club... 


Énnirs ee nn | NEWS DU CLUB - L'ECHO DU PCW N°23 


STAGES, DU NOUVEAU... 


Remise exceptionnelle et priorité absolue 
dans l'ordre des inscriptions pour les 
membres du Club pour le premier grand 
stage Echo-Altitude XXI ayant pour thème 
DBASE II et supervisé par Tony LUZY. Merci 
le club ! 


EXCLUSIFS CLUB, ENCORE DU NOUVEAU... 


Comme ses aînés de l'ECHO, le Club propose 
ses exclusifs à prix... Club : 80 F ! 

Au programme : des logiciels malins et indis- 
pensables pour la logithèque des G.M. Les 
premiers de ces exclusifs seront proposés 
avec le Bulletin 8 (envoyé début Septembre). 


LE SERVEUR, ENCORE DU NOUVEAU... 


Accessible de tous points de France à l'aide 
d'un minitel et d'un seul numéro de 
Téléphone : 48.67.62.25, le serveur de 
l'ECHO vient de faire peau neuve et mérite 
une petite consultation... 


NOUVEAU... 


Les bulletins Club de l'année 87 sont propo- 
sés aux lecteurs de l'Echo, même s'il ne sont 
pas inscrits au club. Les bulletins 88 seront 
disponibles en 89 à moins qu'ils ne s'inscri- 
vent avant. En tout cas, ils peuvent déjà 
remplir leurs soirées avec les six premiers 
bulletins selon le détail ci-dessous. 

Sur ce, pour ne pas perdre les bonnes habi- 
tudes, je vous laisse méditer sur le proverbe 
suivant : 


"Mieux vaut une porte qui claque qu'une 
claque qui porte!"… 
Arnaud BISSOUDRE = 


BULLETINS CLUB 


N'1&2:35F 
N38&4:35F 
N°5&6:35F 

+ Frais de port :10F 


A Commander à LOG/'STICK Edition 


















=, PACK GESTION 1 GESCALC 

D REF: PGE' INVESTISSEMENT 
PATRIMOINE 
BUSINESS 
PERT 


DEMO : AZERTY 


PS REA ETIQUETTES DBASE 


F2 PACK DBASE 
mms MULTIPLAN 
= 


MULTIPLA.KEY 
STANDARD KEY 
DBASE.KEY 


REF : POM1 


MENU.CMD 
DEMO : AZERTY 





TAQUIN 
BIORYTHMES 
SNAKY 
PARACHUTE 
JEU DE LA VIE 
SUPER QUIZZ 
DEMO : AZERTY 


TURBO.KEYS 


ECHO.BAS 
CLAVIER MAKER 
TROUVE.BAS 
VERIF BI2+ 





PROGI.CMD, PROG.CMD 


MENUS DEROULANT 


DEMO : GRAPHIC BASIC 


AATIQUES 






el 
_— 


E 











000000000000 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 


ET 





= CHRONOS3 GENERATEUR D'INDEX 
INVEST3 TRANS LOCASC2 
ET BUDGET FAMILIAL TOUS LES FICHIERS DEPUIS 
GESCALC2 LE N°! 
CALEND.PC 


Les disquettes thématiques de l’Echo reprennent tous les 
programmes depuis le numéro 1. Bénéficiant des dernières 
améliorations chaque disquette est livrée avec son manuel. 






NEC SESTOR GESTION DE EE nse à POKER FOLIES 
REF: PGE2 STOCK EE REF pe AGENDA 
ATHEMYS MUSIC MACHINE 
SUPER GRAPHE MATHELEM 
EVALUATION LOTO 
T.A.O. OTHELLO 


DEMO : TASWORD DEMO : AZERTY 


pa AUTO- ms ; GSX.BAS 
ULITARE 1 PROGRAMMATION REF PGR1 GSXDAO 
GAG ET SETKEYS T.AO. 


LES PLUS D'EXBASIC 
SUPER GRAPHE 
DEMO : GRAPHIC MAGIC 


PRINTER MAKER 
MONITEUR DE DISC 
MATRIX 

LOCASC2 

TABLEAUX ASCII 

DEMO : GRAPHIC MAGIC 





COMMANDES ET FICHIERS res LOGOGRAF 
DU SYSTEME EXPERT GRAPHISME 2 LOGOTRAM 

COMMANDE ET FICHIERS ETIC FACILE 

A LA RECHERCHE DE CODES GRAPHIQUES POUR 
L'OCTET PERDU DBASEII 

CODES GRAPHIQUES POUR TRIFICH 

DBASEII CALEND.PC 





DEMO : TASWORD 






DEMO : GRAPHIC MAGIC 





NTM 





Bon de commande au dos 





ARRETER LE TAPAGE NOCTURNE 


Reposez-vous, offrez à votre PCW les disquettes de l’Echo du PCW. Saisis 
avec amour et testés avec passion, les programmes qui les composent sont 
ceux du numéro correspondant. Alors contre l'usure prématurée du cla- 
vier.. une seule solution : Commandez-les ! 


ATTENTION DESORDRE... 


Le numéro d'Avril est introuvable ? Celui de Juin froissé ? Comment pouvez- 
vous supportez cela ? Vous ne pouvez plus, alors d'Echo vous le dit. C'est 
la reliure qu'il vous faut ! Prévue pour classer une année complète soit onze 
numéros, elle garantit la longévité de votre collection et vous fera gagner 
un précieux temps en recherche et en classement... 


LE CHAINON MANQUANT... 


L'Echo du PCW est le mensuel des PCWistes et depuis son premier numéro 
de nombreux sujets essentiels ont été abordés. L'information qui vous man- 
que est probablement dans l’un d’entre eux. Alors ne cherchez plus vaine- 
ment et complétez, sans attendre votre collection avec les sommaires des 


anciens numéros. 


7 PU LUI! 


Notez chacun des articles que vous avez lus et retournez ce questionnaire à L'ECHO. 
Chaque mois, l'auteur dont l'article a obtenu la meilleure moyenne se verra attribuer une 
prime de 1000 F et le lecteur tiré au sort recevra un magnifique cadeau-surprise. 


PAGE PAS LU NUL MAUVAIS MOYEN BON EXCELLENT NOTES 




















6 Q Q Q Q Q Or SE 120 

8 Q Q Q Q Q D «x 120 

12 Q Q Q Q Q D 4h 120 

14 Q Q Q Q Q Er x 120 

18 Q Q Q Q Q Et 4 120 

20 Q Q Q Q Q Eee 4 120 

38 Q Q Q Q Q D, 120 

42 Q Q Q Q Q DO 4 120 

48 Q Q Q Q Q D GE 120 

50 Q Q Q Q Q D ‘3e 120 
Se RE CE NT Prénoms iii Age... Profession: isa 
rss nesemms=msmesss se Sie ne 0e eus een een ei 2e a ee 2 4 dm 20 0 2 ve en ue ee an 2 Le 










(Encerclez les numéros choisis et reportez la quantité totale dans la colonne de droite) 


| 123456 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 2223 > DE . x 80 
PSE DS RS | Lu J 

DISQUETTES THEMATIQUES - Prix unitaire 100 F (dont TVA 18,6% = 15,68) 
(Encerclez les références choisies et reportez la quantité totale dans la colonne de droite) TM 


[ 

[ > N 

E PGEI PGE2 PGE3 PLOI PDBI PTUI PTU2 PGRI PGR2 PJEI PJE2 POMI L j° 1 "4 j 
RELIURES DE CLASSEMENT PERSONNALISEES "ECHO DU PCW" 









Reliure (11 numéros) - Prix unitaire 80 F (dont TVA 18,6% = 12,55) > REL . x 80 
nn (es | 
RUBANS NOIRS ET COULEURS - TISSUS - SANS FIN - LONGUE DUREE 


! 

Rubans Noirs : 8256/8512 (ADD 20) 9512 (ADD 21) Prix 195 F Par 3 (dont TVA 18,6% = 30,58) > ADD. . x 195 
| RSR 

IRubans couleurs (ADD 22) : … x rouge … x bleu … x vert … x orange … x violet … x marron 

À (Prix unitaire 150 F dont TVA 18,6% = 23,52 - Reportez la quantité totale dans la colonne de droite) > ADD22 . x 150 


DISQUETTES EXCLUSIFS - Prix unitaire 150 F (dont TVA 18,6% = 23,52) 
(Encerclez les références choisies et reportez la quantité totale dans la colonne de droite) 


X001 XO002 XO003 XO04 XO05  XO06  X007  XO008 XO009 X010 > DX . x 150 
Lu J 


X011 XO012 X013 XO014 X015 X016 X017 XOI8 XO19 XO020 
FRAIS DE PORT FRANCE : 2 | Ontguoir pars 
ETRANGER / DOM-TOM : WF | uen 'enbaiee 





| 
| 














ECHO DU PCW - ANCIENS NUMEROS ET ABONNEMENTS (FRANCO DE PORT) 
ANCIENS N° : Prix unitaire France 30 F (dont TVA 7& = 1,96) - Etranger 40 F (dont TVA 7% = 2,62) 





! 

1 

| (Encerclez les numéros choisis et reportez la quatité totale dans la colonne de droite) > ECHO . x 30/40° LA 

| 1234567 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ni 
! 

Abonnement JOURNAL ECHO DU PCW - un an soit : 11 numéros > ABE . x 290/450° - 

France : 290 F (TVA 7% = 18,97) - Etranger / Dom Tom : 450 F (TVA 7% = 29,44) 7 1 — 
Abonnement DISQUETTES ECHO DU PCVW - un an soit : 11 numéros > ABD . x 690/900° = 

! 

l 


France : 690 F (TVA 18,6%=108,21) - Etranger / Dom Tom : 900F (TVA 18,6%=141,15) —7 
ROLE NRC) IE 7  R»>»>»»>>»>»->->->>>>>> 







REGLEMENT A L'ORDRE DE LOGI/!'STICK PAR : ° Rayez la mention inutile 
Q_MANDAT___(J_ CHEQUE __ [J_ CCP___ 
CT VISACARTE BLEUE | 


“æ ATTENTION ! CE BON DE COMMANDE TIENT LIEU DE FACTURE. CONSERVEZ-EN UN DOUBLE POUR VOTRE COMPTABILITE. 


A RETOURNER A LOGlI'STICK Edition 
CAPN - Le Bonaparte - Boîte 49 - 93153 LE BLANC-MESNIL Cédex - FRANCE 














L'ECHO DU PCW 
Juillet-Août 1986 











SPECIAL LIGHT PEN 
COMMENT CHOISIR SA COMPTA {1} 
LES CONFDENCES DE LOCOSCRIPT 
BASIC GSX - UN DEPART SAISISSANT 
PROGRAMME : POKER FOLIES 
REPORTAGE : AMSTRAD SHOW 
BANCS D'ESSAI : LIGHT PEN - 30 CLOCK 
CHESS - BIORYTHMES - LIVRE JETSAM - 
AZERTY 











Tous les programmes de 
ce numéro se trouvent 





SPECIAL COMPTA 
INITIATION A DBASE 11 (5) - LES LIVRES 
DE DBASE- ESSAI : MAILING 
COMMENT CHOISIR SA COMPTABILITE 
L'EVATION TELEMATIQUE 
DELUGE ASCII (2) 

LES CONFDENCES DE LOCOSCRIPT 
LES BONS PLANS DE MULT PLAN 
PROGRAMME : PRNTER MAKER 3 


Tous les programmes de 
ce numéro se trouvent 
Sur la disquette Echo n°7 


CE 
ctobre 1987 
SR 


SPECIAL P.A.0. 
ESSAI : DTP-PAO - VIDI MX-990 - 
ASTRO 

INITIATION À CPM (2) 

INITIATION A DBASE 11 (10) 
INITIATION AU BASIC (1) 
INTRODUCTION A LA PAO 
PROGRAMMES : INVEST + -- QUIZZ 
VERIFICATEUR B-12 - LOCOTRAM 




















Tous les programmes de 
D ce numero se trouvent 
Sur la disquette Echo n°12 


 . L'ECHO DU PCW 
Mars 1988 
CZ 


SPECIAL ASTUCES 
LA LOGITHEQUE DU 9512 

JEUX : HISTOIRE D'OR 

INITIATION AU PASCAL (1) 
INITIATION À CPM (4) 

LES ENTRAILLES DU PCW 

ASCII ET DBASE 

CARTE BLANCHE À R. SCHYNS 
LE PCW LOOK PC 


© 





Tous les programmes de 
Cp ce numéro se trouvent 








SPECIAL RENTREE 
BANC D'ESSAI: LOVE - 4 
NOUVEAUX EXCLUSIFS 
INITIATION AU BASIC 
INITIATION AU PASCAL 
INITIATION A L'ASSEMBLEUR 
PROGRAMMES : MAX LE FOU 
STAT'MAKER - CARTE 
BLANCHE A TONY LUZY 










Tous les programmes de 
ce numero se trouvent 
ur la disquette Echo n°22 






















SPECIAL ECRAN 
BASE : COMPATIBILITE CPC/PCW 
INITIATION À DBASE II (1) 
CHOISIR SA COMPTABILITE 

LES CONFIDENCES DE LOCOSCRIPT 
INITIATION LANGAGE MACHINE (I) 
PROG. NVESTISSEMENT - AGENDA 
ESSAIS : SOURIS - TOMAHAWK - 
ROTATE - EXBASIC LIVRES DE 
MULTIPLAN - DOSSIER : L'ECRAN 


Tous les programmes de 
ce numéro se trouvent 


SPECIAL SOMMAIRE 
ESSAI : MEMENTO BILAN PLUS 
INITIATION A DBASE 1 (6) 

CPM : TOUS LES LIVRES 

ANCIENS SOMMAIRES L'E VASION 
TELEMATIQUE - LES CONF IDENCES DE 
LOCOSCRIPT 

DELUGE ASCII (3) : MULTIPLAN 
PROGRAMME : GESCALC 





SPECIAL AMSTRAD EXPO 
ESSAI : SOURIS KEMPSTON - DRIVE 
POUCE 1/4 

REPORTAGE : PCW EN BELGIQUE - PCW 
SHOW DE LONDRES - AMSTRAD EXPO 
PROGRAMMES : INITIATION AU BASIC 
JEU DE LA VIE - TRIFICH - CARTE 
BLANCHE A OLIVIER COQUIN 
L'EVASION TELE MAT QUE 
























Tous les programmes de 
D ce numero se trouvent 










SPECIAL COURRIER 
PROGRAMMES : TAQUIN - LOCO 
INDEX INITIATION À CPM (6) 
INITIATION AU BASIC (5) 

INITIATION AU PASCAL (2) 

LES CONFIDENCES DE LOCOSCRIPT 
BANC D'ESSAI : MOP-MBP { TRAITE- 
MENT DE TEXTE ET BASE DE DONNEES) 
L'EVASION TEL EMATIQUE 


Tous les programmes de 
DD ce numero se trouvent 


OSSI ESS à 





"ECHO DU PCW 
Nov.-Déc. 1986 







SPECIAL DBASE 
NITUTION A DBASE 1142} 

LES LIVRES ET LES TRUCS DE DBASE 
DES CADEAUX POUR PCW 
TRANSFORMER UN PCW EN SERVEUR 
MNTEL 

LES CONFIDENCES DE LOCOSCRIPT 
PROGRAMMES : MATRIX - PATRIMOINE 
ESSAI : TASWORD 8000 - MEDIACOMPTA 















Tous les programmes de 
ND ce numéro se trouvent 


SPECIAL JEUX 
NITATION A DBASE II (7) 
LES AVEUX DE MME LACAILLE 1} 
UVFE : FICHER SUR AMSTRAD 
DELUGE ASCII (4 : RPED 
LES CONF DENCES DE LOCOSCRIPT 
L'EVASION TELEMATIQUE 
PROGRAMME : MATHELEM 
ESSAIS : GRAPHIC MAGIC - JOYSTICK 





SPECIAL TUYAUX 
ESSAI : SCANNER, SIGNWRITER 
L'EVASION TELEMATIQUE 

CPM : TOUT SUR LE CLAVIER 
DBASE : INITIATION LA. (3) 
PROGRAMME : LOCOSCRIPT, 
BUDGET FAMILIAL 

CARTE BLANCHE A V. LEDOS 
INITIATION AU BASIC (3) 













Tous les programmes de 
DR ce numero se trouvent 


SPECIAL FORMATION 
REPORTAGE : SCOOP EN STOCK - 
LOCO DE MES REVES 

LES CONFIDENCES DE LOCOSCRIPT 
INITIATION AU PASCAL (4) 
DOSSIER : MONTEE EN ALTITUDE 
GENEALOGIE AVEC LOCOSCRIPT 
BANC D'ESSAI : MOP-MBP (SUITE) 
PROG. : DBASE ET ASSEMBLEUR 


L'ECHO DU PCW 
Mai 1988 

























Tous les programmes de 
DD ce numero se trouvent 
Sur la disquette Echo n°19 
























ECHO DU PCW 
Janvier 1987 


SPECIAL MUSIQUE 
INITIATION À DBASE 11 (3) 

CPM : SETLST 

TELEMATIQUE : L'EMULATION 
MINITEL 

LES CONFIDENCES DE LOCO 
PROGRAMMES : MUSIC 
MACHINE - BUSINESS 

ESSAI : MX 550 


"ECHO DU PCW 
Février 1987 


SPECIAL PLUS 
INITIATION A DBASE I! (4) - LES PLUS 
CPM : LES PLUS - DELUGE ASCII (1) 
EXBASIC 

LES CONFIDENCES DE LOCOSCRIPT 
REPORTAGE : AMSTRAD SHOW 
L'EVASION TELEMATIQUE 
PROGRAMMES : GESTION DE STOCK 
PAO ET GSX - ESSAIS : SPOOL 


















Tous les programmes de 
DD ce numero se trouvent 
Sur la disquette Echo n°5 


xs 


SPECIAL COMMUNICATION 
INITIATION À DBASE 1 (8) 
COMMUNICATION : L'UNIVERS 
TELEMATIQUE - LES LIVRES - RS 232 
L'EVASION TEL EMATIQUE 

DIVERS : DECOUPE BANDES . PCW 
VECU - CP/M TOUT SUR LE 
CLAVIER - PROGRAMMES : PERT 
RSMAKER : OTHELLO 


Tous les programmes de 


? ce numero se trouvent 


SPECIAL PROGRAMMES 
ESSAI : TURBO EXPERT BASE 
INITIATION A DBASE 11 (9) 
L'EVASION TELEMATIQUE 
LOCOSCRIPT : LE SECRET DES 
PAGES - DEMARRER EN CP/M 
INITIATION A L'INTELLIGENCE 
ARTIFICIELLE 

PROGRAMME : MONITEUR DE DISC 





SPECIAL BANC D'ESSAI 
BANC D'ESSAI : PCW 9512 
HERAKLIOS - ASTRO FUTUR 
DBASE Il A LA RECHERCHE 
TOUT SUR LES RUBANS 
INITIATION AU BASIC (4) 
PROGRAMMES . CHRONOS 
LES VOEUX DE L'ECHO 


SPECIAL PROGRAMMES 
BASIC : UTILITAIRES : CLAVIER 
MAKER - TROUVE.BAS 

JEUX SNAKY - PARACHUTE 
DBASE 11: À LA RECHERCHE 
INITIATION À CPM (3) 

CARTE BLANCHE À O.COQUIN 
L'EVASION TELEMATIQUE 











Tous les programmes de 
ce numero se trouvent 
















SPECIAL DBASE 
NOUVEAU II! : LES EXCLUSIFS DE 
L'ECHO - FICHES TECHNIQUES 
INITIATION AU BASIC (6) 
INITIATION AU PASCAL (5) 
PROGRAMMES : LA CHENILLE 
CLOCK MAGIC - DELREM - HISTO 
DBASE LES CONFIDENCES DE 
LOCOSCRIPT : ENTRAILLES DBASE 11 


SPECIAL VACANCES 
PROGRAMMES: FONCTION GSX - 
MENUBAS . BANC D'ESSAI : DA 
DRAW DR GRAPH : 7 EXCLUSIFS 
EXCEPTIONNELS 

INITIATION AU PASCAL - INITIATION 
AU BASKC . LES ENTRAILLES DE 
DBASE 11 - REPORTAGES : PLZZA DEL 
ARTE : AMSTRAD SHOW 














Tous les programmes de 
ED ce numero se trouvent 
Sur la disquette Echo n°20 


Tous les programmes de 
ce numero se trouvent 


% Numéro double 


LE SECRET DU BONHEUR 


MT EOGART ET  HUMPHRE Y 
MRSNTUE 5 1/02/1989 CCE 6 7 4894 


IGNATUR 
Cette cañe strictement personnelle SIG URE XXX 
donne droit a toutes les achviles du CluD 


LÉ CIOB EC 


DU 





N'attendez | pos pour vous a pour recevoir votre carte 
BON DE COMMANDE CLUB REarale qui est se le ren de ralliement des PSMRE 





Meilleure vente au 25/09/88 


BOURSITEL X-008 


PERATIONNELS 


BLIEZ PAS ! 








TARIF ET DESCRIPTIF 


:]TE SUPERIEURE Les logiciels proposés dans cette rubrique sont de qualité supé- 


rieure. La suppression de tous frais inutiles tels que : packaging, 
promotion et intermédiaires, permet de les proposer à un coût 


d'une fiche technique déscriptive. Ces fiches sont publiées tous les mois 
et le numéro de l'ECHO contenant celle d'un produit se trouve dans la 
colonne “Cf ECHO N°" 


Livrés sur disquette avec tous les fichiers utiles à leur utilisation, les 
EXCLUSIFS ont été testés avec une rigueur toute particulière et sont tou- 
jours accompagnés d'une notice permettant leur rapide prise en main. 


chacun n'est dû qu'à l'importante économie réalisée sur des frais souvent 


inutiles comparativement à l'intérêt qu'ils représentent pour les utilisa- 
teurs. 


GE STION/COMPTABILITE 


Réf. Titre Objet Prix TTC CfECHO N° 
X 001 #  COMPTASS Gestion d'associations complète 150 20 
X 003 GESTCOMPTE Gestion budgétaire multi-usage 150 20 
X 005 GESTIT Gestion de titres pour sociétés 150 21 
X 008 BOURSITEL Gestion de portefeuilles avec liaison minitel 150 22 


X 014 PLUME Gestion de la correspondance 150 22 


VIE PRATIQUE 


Réf. Titre Objet Prix TTC CfECHO N° 

X 002 #  NOUMEROLOGIA Etude de la personnalité (numérologie) 150 20 

X 011 SUPER TURF Pronostics pour courses de trotteurs 150 21 

X 012 GENEALOGIA Généalogie ascendante sous DBASE 150 21 

X 015 FOOT-BALL Résultats et statistiques du championnat 150 22 
 X016 PAPY Généalogie sous BASIC V4.4 150 22 


PROGRAMMATION/UTILITAIRES 


Réf. Titre Objet Prix TTC CfECHON° 
X 004 ©  ROTAMAT Redéfinition de fontes pour ROTATE + 4 fontes 150 20 

X 006 AIDECPM Version française de HELP pour CP/M 150 21 

X 009 #e PACK BASIC Basic étendu avec grandes copies d'écran 150 21 
X010 # EDIT 2000 Editeur “pleine page” de haut niveau 150 21 
X018 #  JETFICH Gestion de fichiers paramétrable 150 23 
X019 # SOPHIE Moniteur - debugueur Z-80 150 23 
SCIENTIFIQUE/TECHNIQUE 

Réf. Titre Objet Prix TTC CfECHON° 
X 007 # ELECTRON Calcul d'amplificateurs 150 21 
JEUX 

Réf. Titre Objet Prix TTC CfECHO N° 
X 013 AVENTURES Conception de Jeux assistée par Ordinateur 150 21 

X 017 SUPER GAMES Pack de 10 jeux d'arcade 150 23 


X 019 OTHELLO MASTER  Othello-Reversi (jeu de stratégie) 150 23 


# Nouvelles versions au 01 Septembre 88 
@& 9512 avec imprimante compatible Centronics. 





LES EXCLUSIFS - L'ECHO DU PCW N° 23 D sr | 
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17 - SUPER GAMES 












our vous éclater en 
fe votre PCW. Deux 
portant 5 jeux chacune, 
par un menu, sont prêtes 
satisfaire tous vos besoins 


raphismes du plus bel effet. 
trictement réservé aux esprits 


FHIREIEE jij * 
! RRTn nn 










FACE 1 : 


IMAGES'FACILE : pour entraîner sa mémoire en s'amu- 
sant, comme dans un jeu télévisé, "le mur d'images”. 


PENDU'FACILE : un pendu original au niveau de la pré- 
sentation. 


VILLE'FACILE : aux commandes de votre bombardier, 
détruisez des immeubles en larguant des bombes en 
appuyant sur la barre espace. 


CHENILLE'FACILE : ça vous dit quelque chose? On 
se déplace avec les flèches du curseur. 


CHENILLEZ'FACILE : et ça recommence! Mais c'est 
beaucoup plus difficile. 


FACE 2: @ 


TIERCE'FACILE : vous pouvez parier autant que vous 
le voulez, vous ne risquez pas de vous ruiner! Mais pour 
lancer le tiercé, vous devrez faire l'effort de presser 
<ESPACE>. Un jeu pour toute la famille, où tous les 
copains. 


QUATRE'FACILE : alignez-vous, en rang par quatre, à 
l'horizontale, à la verticale, ou en diagonale. Mais atten- 
tion, l'ordinateur veille. 


SECOURS'FACILE : jouez les sauveteurs de personnes 
obligées de sauter d'un immeuble en flammes. Vous 
avez droit à l'erreur, mais c'est mieux si vous n'en lais- 
sez tomber aucun. 


CIRCUIT'FACILE : au volant d'une superbe formule 1, 
testez vos talents de conducteur sur trois circuits très 

difficiles. Pour vous diriger, <W> et <$>, comme dans 
SNAKY. 


MISSION'FACILE : atterrir sur cette planète avec seule- 


ment les touches curseur, c'est pas du gâteau. Plus dur 
que PARACHUTE et ce n'est pas peu dire... 


E N CONCLUSION 





D'excellents moments en perspective, en compagnie de 
ces jeux dont certains seront certainement appelés à 
devenir de nouveaux classiques. C'est simple, c'est effi- 
cace et en prime, c'est bien fait. À réserver d'urgence. 





LES EXCLUSIFS + L'ECHO DU PCW N° 23 







L _E D E T A I L 


Chaque base de données créée sous JETFICH 
comprend trois fichiers distincts : 

- Le masque de saisie du fichier (extension 'MSQ') 
- La base de données proprement dite (extension 
"DAT') 

- Le fichier index (extension 'CLF'). 

Le nombre maximum de rubriques pour chaque 
fiche est de 16, le nombre maximimum de caractères 
pour chaque rubrique est de 255. 

Les 8 premières rubriques de chaque fiche ser- 
vent automatiquement de clefs pour la recherche 
indexée. Si la fiche comprend moins de 8 rubriques, 
chacune d'entre elles peut donc être utilisée aux fins 
de tri. Chacune de ces clefs est automatiquement 
amenée à la longueur de 30 caractères. 

La création et la manipulation d'un fichier com- 
prend : 

- La définition d'un masque de saisie (soit par créa- 
tion simple soit par duplication ou modification d'un 
masque existant.) 

- La consultation de ce fichier par : al 
- Ajout de fiches. 

- Lecture rapide des fiches à l'écran où seules sont 
affichées les rubriques servant de clefs. 

- Lecture fiche à fiche à l'écran ou à l'imprimante (le 
classement s'effectue en fonction de la rubrique choi- 
sie par l'utilisateur à condition que celle-ci soit une 
clef.) 

- Lecture fiche à fiche à l'écran ou à l'imprimante 
après sélection d'une clef de recherche. 

- Modification d'une fiche affichée à l'écran par lectu- 
re fiche à fiche. 

- Destruction d'une fiche. 

Chaque base de données étant intimement asso- 
ciée à son masque de saisie, il ne peut être question, 
une fois celui-ci défini et la base de données créée, 
de le modifier (sinon par des manipulations hors pro- 
gramme.) 

La modestie du programme ne lui autorise que 
des ordres de tri simples. Il ne travaille ni sur les 
sous-chaînes ni sur les opérateurs logiques associés 
aux valeurs numériques. Une fois le programme 
chargé, on peut retirer le disque du lecteur pour y 
insérer les disques contenant les bases de données. 
- L'écran est divisé en 3 parties : 

- La ligne supérieure affiche le titre du programme et, 
en cours de travail, le nom du fichier en consultation. 
- La partie médiane est destinée à l'affichage des 
fiches. 

- La partie inférieure est destinée à l'affichage des 
menus et des commandes de JETFICH. 

- Après chargement, JETFICH commence par 
demander si le système est muni du lecteur B:. Il 
affiche ensuite la liste des fichiers présents sur le 
disque A: et éventuellement sur le disque B:. 
Ensuite tout peut commencer... 


EN CONCLUSION 


Un programme intéressant à plus d'un titre. Par sa 
simplicité d'emploi, il peut intéresser beaucoup de 


LES EXCLUSIFS + L'ECHO DU PCW N° 23 













JE TSAM du BASIC-MALLARD. 
JETFICH se veut, par sa conviviali- 
té et sa souplesse d'emploi, l'alter- 
native intelligente à DBASE II. 
ageons qu'il réussira.. 


TITRE : JETFICH 

OBJET : GESTION DE BASES DE DONNEES 
DOMAINE PROGRAMMATION! DONER TAIRE 
MACHINE : 8256/8512/9512 

AUTEUR : GERARD SIRHUGUES 


REFERENCE : x 018 


JETFICH-CESTION DE FICHERS JETSN Fichier: ECHO 
AR €) MM 2) MONET Ù 





CONSULTATION ECRAN 
M 13 te TS Let 

NOEL 
néophytes en la matière et il représente une très 
bonne initiation à l'utilisation de ce type de gestion- 
naire. Par son ouverture, il peut faire l'objet d'une per- 
sonnalisation pour qui sait manier le BASIC. Par son 
choix de travail sur des fichiers JETSAM, il permet 
une certaine rapidité, une bonne souplesse et sur- 
tout, un bon apprentissage de JETSAM pour ceux 
qui veulent se perfectionner sur le BASIC MALLARD 
et préfèrent apprendre par l'exemple. En tous cas, 
très professionnel, il est appelé à un brillant avenir 
parmi les Exclusifs qui l'accueillent bien volontiers. @ 


“JatelCil 








ei Tel EE 


ERA EP. 









pour tous ceux qui 
tre à fond leur 





On lance SOPHIE depuis le CP/M comme n'importe 
quel utilitaire habituel. Une fois installé, le programme 
est sous votre commandement. L'écran se compose 
de deux parties. La première est délimitée par un 
cadre et occupe presque la totalité de l'écran. C'est la 
ZONE UTILISATEUR où vous taperez vos ordres. La 
seconde constitue le bas de l'écran. Elle indique l'état 
de la machine à tout moment : sous quel menu vous 
êtes, le disque courant, etc. C'est la ZONE D'ETAT. 


A noter que l'on travaille directement sur disque réel 
puisque le disque virtuel M: est annulé par le logiciel 
afin d'avoir une plus grande place mémoire utilisa- 


teur... 
L'attente des ordres par le logiciel est symbolisée par 
">." : il s'agit du prompt. Pour faire effectuer une 


tâche précise à SOPHIE, il faut entrer une ligne de 


sasts33sis SUPNIE VER: 1 0. DEBUCCEUR, METAL WOLF 1988. :22523252 





ER 


commande constituée de l'instruction, suivie d'un cer- 
tain nombre de paramètres. L'instruction considérée 
récupère dans la ligne de commande (86 caractères 
maximum) les paramètres dont elle a besoin et igno- 
re le reste. De plus, SOPHIE possède un analyseur 
syntaxique qui émet un message d'erreur s'il y a lieu. 


Voici la liste des instructions accessibles sous le 
MENU GENERAL : 

>QUIT. : Quitte SOPHIE + confirmation au clavier. 
>DIR <A:>.ou >DIR <B:>. : Effectue un directory. 
>ERA Nomdefichier.ext. : Efface le fichier sur le 
disque spécifié. 

>SET <DSK <disque:>extension> <USER i>. : Fixe 
les paramètres disque. 

>CLS <0>.ou >CLS <1>. : Efface l'écran utilisateur. 
>DUMP. : Passe sous le mode DUMP. 

>TRACE <adresse>. : Passe sous le mode TRACE. 
>LOAD nomdefichier.ext. : Charge un fichier ASCII 
où BINAIRE, sous certaines conditions. 

>RENAME nomdefichier. : Redéfinit le nom du 
fichier pour la sauvegarde sur disque. 

>SAVE. : Sauve le fichier en mémoire. 


Le menu DUMP permet un lecture et une écriture 
directe dans la TPA. A savoir : la TPA est entière- 
ment simulée (Vous ne travaillez pas réellement dans 
la TPA et pouvez y changer même les vecteurs 
d'adresse des interruptions, SOPHIE ne se plantera 
pas). La zone utilisateur est la même que celle du 
menu général, mis à part que le délimiteur de début 
de ligne ">" est remplacé par une étoile "*" qui spéci- 
fie le menu DUMP dont les instructions sont aussi 
nombreuses que celles du menu général et toutes 
aussi intéressantes. Pour examiner à la loupe cer- 
tains détails cachés dans la mémoire du PCW... 


Le menu TRACE est une commande extrêmement 
puissante dans la mesure où elle permet de simuler 
un programme. Cette instruction exécute le position- 
nement de BANK tel que le programme le fait, per- 
met la correction des registres pendant la simulation 
et accepte même de ne pas exécuter certaines ins- 
tructions si vous lui en donnez l'ordre. Le suprême 
raffinement ! 


EN CONCLUSION 





Mieux que SID et DUMP réunis (ceux fournis avec 
nos PCW), à nous les joies de la maîtrise des 
registres, flags, pointeurs, piles et autres finesses 
typiquement langage machine. Enfin signalons que 
tous les exemple de l'initiation à l'assembleur seront 
réalisés avec SOPHIE et ce, à compter des pro- 
chains numéros. L'utilisation en sera donc + 
Encore merci METAL WOLF ! 


a SOPIEN8, 
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L E D E T A I L 


Pour les 8256 personnes en France ne connais- 
sant pas encore ce jeu, la rédaction, dans son 
infinie bonté, a décidé d'en énoncer ici les 
bases. Si vous n'avez pas la chance de les 
connaître, vous pouvez passer au point suivant. 


REGLES DU JEU : Se joue sur un échiquier à 
deux. Chacun est doté de 64 jetons réversibles, 
blancs d'un côté, noirs de l'autre, chaque joueur 
ayant une couleur pour toute la partie. Au 
départ, chacun dispose deux jetons sur les 
cases centrales, en diagonale. Puis à tour de 
rôle, ils placent un jeton sur l'échiquier à côté 
d'un jeton adverse, la condition pour pouvoir 
poser un jeton étant de réaliser un encadrement 
de jeton(s) adverse(s) entre, au moins, deux de 
ses jetons, en ligne, colonne ou diagonale. Les 
jetons de l'adversaire, ainsi entourés, sont alors 
retournés pour prendre la couleur opposée. Le 
but du jeu est de posséder une majorité de 
jetons de sa couleur en fin de partie, c'est-à-dire 
lorsque toutes les cases sont occupées ou lors- 
qu'aucun joueur ne peut plus poser de jeton. Si 
un joueur ne peut poser de jeton, il passe son 
tour. Il n'est autorisé à passer son tour que s'il 
ne peut poser un jeton. Facile? Essayez contre 
l'ordinateur, ou un de vos amis... @ 


OTHELLO : Avant de jouer, de nombreuses 
options s'offrent à vos yeux étonnés. Tout 
d'abord, le choix du mode. Trois possibilités : 
laisser jouer l'ordinateur contre lui-même (mode 
démo); jouer contre l'ordinateur (mode jeu); 
jouer contre un autre joueur (mode arbitre). Pour 
les deux dernières possibilités, l'ordinateur 
demande le nom du ou des joueur(s). Ensuite, 
OTHELLO propose un choix de handicap éven- 
tuel, soit la possibilité de donner, dès le départ, 
les quatres coins à l'un des joueurs. Enfin, la 
possibilité de choisir qui commence ou de lais- 
ser l'ordinateur tirer au sort. 


Pendant le jeu, OTHELLO permet de revenir un 
ou plusieurs coups en arrière, à l'aide de la 
touche <CUT> ! À chaque tour, l'ordinateur éva- 
lue les coups possibles en recensant toutes les 
cases valides pour son jeu. De même, il recense 
vos cases possibles et positionne un jeton sur la 
première détectée que vous pouvez accepter en 
la validant par <EXIT> ou le déplacer sur une 
autre case valide par le pression d'une autre 
touche. A la fin de la partie, vous pouvez 
demander l'impression de tous les coups avec 
leurs coordonnées. 


OTHELLO MASTER 


bon classique du 
er dans l'univers des 


U près tous les ordinateurs, y 
ompris le PCW, est une véritable invi- 
ation : aucun programme n'avait 
ncore proposé toutes les fonctionna- 
tés de celui-ci, qui plus est, agré- 
1enté d'un graphisme très réussi. 
éntation, quand tu nous tiens... 


TITRE : OTHELLO MASTER 

OBJET : CLASSIQUE/REFLEXION & LOGIQUE 
DOMAINE : JEUX 

MACHINE : 8256/8512/9512 

AUTEUR : RÉVÉRENT MAC MADIF 
REFERENCE : X 020 


us: “HP eleaeie 01e 
(@l6le/elelelele 





EN CONCLUSION 


Du beau travail quant à la réalisation et aux per- 
formances qui équivalent à celles d'un joueur 
moyen. Donc, si vous êtes un très bon joueur, 
vous risquez de le trouver un peu faible mais si 
vous démarrez à l'OTHELLO et que vous ne 
vous êtes pas encore rué sur le bon de com- 
mande, c'est que vous tenez le journal à l'en- 
vers ou que vous êtes un irréductible "traiteur de 
texte” !!! 60 


OTHELL@ 
MASTER 
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IFS 





Retournez à l'adresse ci-dessous les disquet- 

tes originales après en avoir fait une copie de } 

travail, le temps que les nouvelles versions 

VOUS parviennent. 

H- Joignez 30 F par référence au titre de la parti- 
cipation au frais d'échange et d'expédition. 

-__Les nouvelles versions des logiciels ne modi- 
fient en rien les fichiers de données déjà 
constitués dont vous prendrez soin de garder 


une copie de sauvegarde. 
ADR ' 


Conformément à la volonté de l'ECHO de fournir 
une prestation exceptionnelle, 5 nouvelles ver- 
Slons d'EXCLUSIFS sont disponibles à compter 
du 1er Septembre 88. Toute commande passée 
avant cette date concernait les anciennes ver- 
sions. Les possesseurs des 5 logiciels concernés 
(liste plus bas) peuvent échanger leurs anciennes 
versions contre les nouvelles. Pour cela, il suffit de 
suivre les indications de l'encadré ci-contre. 


V VERSION 


X-001  COMPTASS gestion d'associations 
X-002  NOUMEROLOGIA numérologie 
X-007 ELECTRON calcul d'amplificateurs 
X-009 PACK BASIC fonctions graphiques 
X-010 EDIT 2000 éditeur ASCII 


P 
LOGISTICK 


Service technique 
CAPN - Le Bonaparte 
boîte 49 
93153 Le Blanc-Mesnil Cédex 
FRANCE 











Pour proposer votre logiciel à LOGI'STICK dans le DEPOT ET PROTECTION D'UN LOGICIEL 
cadre d'une éventuelle publication dans la rubrique | 
des EXCLUSIFS, voici comment procéder : | SA MARQUE 
- Effectuez tous les dépots que vous jugerez utiles D Institut National de la Protection Industrielle. 
pour la protection de vos droits (voir encadré ci- | 
contre). D INPI : 26 Bis rue de Leningrad 75008 Paris. 
- Faites parvenir à LOGI'STICK les éléments sui- | Tel (1) 42.94.52.52 
vants : 3615 CODE INPI 

- Disquette(s) du logiciel dans sa ver- | 

de ) ‘ | SON CONTENU ET SA P RAMMA 

- Texte sur disquette au format ASCII, ou | 


Locoscript, des textes de la notice. L'Association pour la Protection des Programmeurs 
* Une notice avec copies d'écran et illus- 
trations si elle le nécessite. 

- Les copies d'écran bien noires et toutes 
les illustrations devant figurer dans la 
notice. 


h APP : 119 rue des Flandres 75019 Paris. 
| Tel (1) 40.35.03.03 


ISTIN PI ë 


; ie issi bit iend tat. 
LOGI'STICK s'engage à ne faire aucune utilisa- Chez votre huissier habituel qui en dressera constat 


tion, autre qu'une évaluation, du logiciel tant que le 
contrat d'édition n'aura pas été signé par vous et 
par nous si le logiciel le justifie. @ 
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NOS " RAVENLELRS SPECRLISES 


6 





- 


< 
VAL-D'OISE | S 


YVELINES 


ESSONNE 


BASE ROGRAMMATION 


RSLRDES 


RASE 


ERASE 


ENDDO 


LORTANOROROARLRGRRGR D AY LATAGAY LR OAGROR PAR OGATRIRO LI LAGAORT ED 


* 

* 

* 

* 

SET TALK OFF 
STORE O TO DEP 
STORE O0 TO FIN 
E 
à 
5 à 


1,1 SAY "ADRESSE DE DEPART" GET DEP PICTURE "#####" 
3,4 SAY "ADRESSE DE FIN" GET FIN PICTURE "“#####" 


DO WHILE DEP<FIN 
? DEP, PEEK (DEP) , CHR (PEEK (DEP) ) 
STORE DEP+1 TO DEP 


Connaître les tréfonds de DBASE II 
pour en tirer plus n'est pas une nou- 
veauté dans nos colonnes et Tony 
LUZY en fit déjà une brillante 
démonstration dans les "Entrailles de 
DBASE"" (cf ECHO 19,20 et 21). 
Cette nouvelle série suit la même 
démarche en passant par des voies 
différentes. De nouvelles fonctions, de 
nouvelles possibilités et surtout une 
plus grande connaissance de l'organi- 
sation du programme orientée vers 
un seul but : l'autoprogrammation ou 
comment utiliser DBASE pour pro- 
es PRE 





PRESENTATION 


DBASE garde constamment en mémoire vive 
(TPA) les informations auxquelles il a recours 
pour réaliser ses travaux. Lecteur par défaut, les 
variables et leur contenu, la date courante, la struc- 
ture des fichiers de données en cours d'utilisation, 
etc, etc. 


Dans ce premier rendez-vous, nous allons nous 
intéresser précisément à la stucture du fichier de 
donnée principal (PRIMARY) et retrouver à quel 
endroit les informations essentielles se cachent. 
De cette façon, nous arriverons à des choses éton- 
nantes dont voici quelques exemples : 


Changer le nom des champs sans risquer de perdre 
les données 

Pouvoir utiliser dans un programme des informa- 
tions hier, encore, inaccessibles comme : nombre 
de champs, type de champs, longueur, etc... 

Créer un fichier dans lequel nous pourrons mémo- 
riser les structures des autres fichiers pour s'en 


SA DA DA LADA DA UE AD AU LE QE D A ADR Ge ADR 2 A D A DA DE DE RONDE ER ERA GES 


* LISTE . CMD 
COMMANDE LISTAGE DE LA TPA 
AUTO-PROG DBASE 
MARC HERMION 


IDECTN ISLE ET TEL AN TTL 


ELEC PNZINTA TEL ZA LTLIL TITLE 


$ 


SIONONOLI SM ONOLELIONOLIE MONO EI OKON ALI INONO LS ONONÈL IE ON ELIIFONONEEIINOLIEIONILOLIONONELS 





faire une bibliothèque et mille autres choses que 
l'imagination nous dicterait… 


MEMOIRE ET STUC- 
TURE DU FICHIER 


Nous savons que l'instruction USE + NOM DU 
FICHIER ordonne à DBASE de pointer sur le 
fichier que nous avons l'intention d'utiliser. 
Excellent exécutant, il le fait et démarre cette 
pénilleuse opération en chargeant à une adresse très 
précise la structure du fichier demandé. 


Vérifions-le maintenant. 
Lançons DBASE en entrant cette date : 13.12.33 


Créons un fichier nommé ESSAI dont voici la 
structure : 


CREATE ESSAI <RETURN> 


puis : 
NOM C 30 
ADRESSE C 30 
CODE C 5 
VILLE C 24 
AGE N 2 
SALAIRE N 8 2 


<ALT><W> le programme propose la saisie de 
données que nous acceptons par <Y> pour entrer 5 
enregistrements remplis avec n'importe quoi. 


De retour au mode direct, regardons ce qui se trou- 
ve à l'adresse 28338 par : 
? PEEK(28338) <RETURN> 
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Si nous avons bien entré la date donnée plus haut, 
DBASE affichera 13 qui correspond au jour. 


Essayons un octet plus haut par : 
? PEEK(28339) <RETURN> 
et nous obtenons le mois... 


Nous avançons furieusement et n'ayant pas vrai- 
ment le courage de passer en revue la mémoire à 
coup de PEEK, nous faisons notre première com- 
mande chargée de le faire à notre place... 


Entrée par MODIFY COMMAND LISTE, cette 
commande est exécutée par DO LISTE. Elle 

demande immédiatement une adresse de départ et 
une adresse de fin ce que nous faisons en entrant : 


Adresse de DEPART : 
Adresse de FIN : 


28336 
28500 


Le miracle s'accomplit, nous voyons à l'écran 
(figure 1) ce qui nous sera très précieux pour la 
suite de cet article... 


CODAGE DE LA 
ZONE STRUCTURE 


Après quelques instants passés dans une profonde 
réflexion, nous pouvons, sans trop risquer de nous 
tromper, établir la mini-carte suivante : 


28336 Nombre d'enregistrements Octet fort 
28337 Nombre d'enregistrements Octet faible 
28338 Jour 

28339 Mois 

28340 Année 

28341 Taille d'un enregistrement Octet fort 
28342 Taille d'un enregistrement Octet faible 


28343 à 28353 Nom du champ 


28354 Type du champ 

28355 Longueur du champ 

28356 Adresse du contenu du champ  Octet fort 
28357 Adresse du contenu du champ  Octet faible 
28358 Nombre de décimales si le champ est numérique 


La suite étant reproduite de 16 octets en 16 octets 
pour chaque champ contenu dans le fichier. 


EXPLOITATION DES 
INFORMATIONS 


Savoir où se trouvent les informations relatives à 
un fichier de données mérite le détour, mais 
exploiter cela pour nos propres applications, est 
nettement plus palpitant.… 


Nous pouvons d'ores et déjà recréer une fonction 


DBASE II ET AUTO-PROGRAMMATION «+ L'ECHO DU PCW N° 23 = ee vi 


: HGUBEZ  QpRESSE DE DEPART:tHRH: 

: ADRESSE DE FIN:HELN: 

$ 28343 7N MA LEA 

; 2844 790 225 76 L 
2845 17h 28406 G6SA 
2846 20407 73] 
2847 0 ep4n SR 
2848 29409 B9E 
2849 9 684% 0 
in | 28431 À 
HE 843 À 
28252 2493 À 
ms MA EN 
84 670 2H 8 
68755 % AE 20 
28256 185 % 20437 113 q 
28267 112 p 29438 2 


FA QE ee 2 De en 8 D D 5 D ee Ge ee ee 8 NN ee 6 ee 


présente dans DBASE 3 et absente de DBASE 2. 
Il s'agit de la commande FIELD qui permet de 
récupérer dans une variable un nom de champ 
quelconque. 

Cette possibilité était, jusqu'à ce jour, totalement 
inaccessible et les seuls moyens pour connaître un 
nom de champ était : 

APPEND pour entrer des données ou LIST 
STRUCTURE qui, outre les noms de champ, 
donne aussi leurs caractéristiques ainsi que celles 
du fichier (figure 2). 


Bien entendu, les informations données par LIST 
STRUCTURE sont inexploitables et de nombreux 
programmeurs s'en trouvaient gênés. 


Pour régler ce problème, la commande 
INFO.CMD restitue les mêmes informations, 
même plus, ct, suprême luxe, récupérables avec 
n'importe quel programme... 


UTILISATION 
D'INFO.CMD 


Pour démarrer, rappelons le principe. Utilisant un 
fichier secondaire (SECONDARY) appelé 
CHAMPS.DBF, INFO.CMD décortique la struc- 
ture de n'importe quel fichier, et stocke les infor- 


ne 1 a a de QU Ge RQ Ne RD GE Le Ne 8 De 8 ut et en 


? FIGURE 2 


Ë « LIST RP RE 
i STRUCTURE DU FICHIER : A:ESSAI 
: NONBRE D'ENREGISTREMENTS : 00005 
$ QE DE LA Er NISE À Ju : 1 gi 
È ASE DE DONNEES PRINALRE EN COURS D'UTILISATI 
: CHANP IYP DIN  DECINALE(S) 
: ol ue Ç 0% 
è Qc ADRESSE Ç 0% 
@3 CODE Ç 05 
Ho jf 
: 605 SALAIRE N 008 0 
è sale # 00100 


DORE DE RNA RNA TRI RANRER E MOQUE NA NANRENINONIERONILÈLIITIRIERINOLS 


DCDRSR SCENE 


s 
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BASE PROGRAMMATIO 








DBASE II PROGRAMMATION 








* INFO.CMD - MISE EN FICHIER CHAMPS.DBF 
* DES CHAMPS ET INFO D'UN FICHIER QCQ 

* Par MARC HERMION 

* 

SET TALK OFF 

SET CONFIRM ON 

STORE " " TO FICHIER 

ERASE 


READ 

SELECT SECONDARY 

USE CHAMPS 

DELETE ALL 

PACK 

SELECT PRIMARY 

USE 6FICHIER 

STORE PEEK (28336) +PEEK (28337) *256 TO NBENR 
STORE PEEK (28338) TO JOUR 

STORE PEEK(28339) TO MOIS 

STORE PEEK (28340) TO AN 

STORE PEEK (28341) +PEEK(28342) *256 TO NBOCTET 
STORE 1 TO NoCHAMP 

STORE 1 TO OK 

DO WHILE OK=1 

SELECT PRIMARY 

STORE 28342+16* (NOCHAMP-1) TO ADRES 
STORE 28343+16* (NoCHAMP) TO ADRES2 
STORE " " TO CHAMPI 

IF PEEK (ADRES2) <>0 

STORE 1 TO FIN 

DO WHILE FIN<10 

STORE CHAMP 1+CHR (PEEK (ADRES+FIN)) TO CHAMP1 
STORE FIN+1 TO FIN 

ENDDO 

STORE $ (CHAMP1,2,10) TO CHAMP1 

STORE CHR (PEEK (ADRES+12)) TO TYPE 
STORE PEEK (ADRES+13) TO LONG1 

STORE PEEK (ADRES+14) +256X*PEEK (ADRES+15) TO ADRES1 
STORE PEEK (ADRES+16) TO NBDEC1 
SELECT SECONDARY 

APPEND BLANK 

REPLACE CHAMP WITH CHAMP1 

REPLACE TYPE WITH TYPE 

REPLACE LONGUEUR WITH LONGI1 

REPLACE ADRESSE WITH ADRES1 

REPLACE NBDEC WITH NBDECI 

STORE NoCHAMP+1 TO NoCHAMP 

ELSE 

STORE 0 TO OK 

ENDIF 

ENDDO 

SELECT SECONDARY 

STORE # TO NBCHAMPS 

? "FICHIER :"+FICHIER+".DBF" 

? "NOMBRES D'ENREGISTREMENTS : ", NBENR 


? "NOMBRE DE CHAMPS :", NBCHAMPS 

? "DERNIERE MISE À JOUR LE..." 

2" JOUR: ", JOUR 

2" MOIS :", MOIS 

2" ANNEE :", AN 

2 "NI CHAMP TYPE LGR ADRESSE DEC" 
LIST 


2? "TOTAL DES CHAMPS (OCTETS) :", NBOCTET 


mations de chaque champ du fichier ausculté dans 
un enregistrement du fichier CHAMPS. 

Dans le cas de notre fichier ESSAI, le champ 
NOM sera dans le premier enregistrement de 
CHAMPS, le champ ADRESSE dans le second, 
etc... 


Le nombre de champs dans un fichier ne pouvant 
excéder 32, le fichier CHAMPS n'aura jamais plus 
de 32 enregistrements. Par conséquent, sa taille ne 
nous préoccupera guère. 

Revenons maintenant à la structure de ce fichier de 
travail CHAMPS indispensable à la bonne marche 
de INFO.CMD. 


Composé de 5 champs par enregistrement, nous le 
créerons par : 
CREATE CHAMPS <RETURN> 


Puis entrerons la structure comme l'indique le 
détail suivant : 


CHAMP,C,10 Nom du champ 
TYPE,C,1 Type du champ 
LONGUEUR,N,3 Longueur du champ 
ADRESSE,N,5 Adresse des données 
NBDEC,N,2 Nombre de décimales 


Ce fichier créé et INFO.CMD saisi, nous pouvons 
ausculter n'importe quel fichier qui se présente à 
nous et pourquoi pas le fichier ESSAI fait pour la 
circonstance. 


NI GE D8 € 2 NN QE 5 6 ANG NE A QE 8 6 SN GE 3 8 QE GG EN GE 8 NN 6 DK GE de € 26 


comparaison entre les informations données par LIST STRUC- 
TURE et celles d'INFO.CMD 


re due Be Be BE bat PE Te 2e 80 80 


Li 
(rc 
2 
Cu. 
MORERAGR DER ÉLARORG ÉTANG LLILAOE 


FICHIER : DBF 
È NOMBRES D'ENREGISTREMENTS: 5 
5 NOMBRE DE CHAMPS ! 6 
5 DERNIERE MISE À JOUR Ri: 
È UR: 13 
È MOIS: fe 
N° CHARP TYPE LGR ADRESSE DEC 
i ©0001 NO C 3% 28857 à 
ES Let ADRESSE OC 3% 28987 0 
É CO) C 5 28917 0 
ÿ 60004 UILLE C 24 289% 
ë ÂGE N à A4) Ÿ 
È SALAIRE NB 28948 
î wpe 1e GE (OCTETS): 100 
ERACIURE 


NMERE D EE IS EurS dl ae 


Ÿ DATE DE LA D à JOUR : 13/13/22 

è BASE DE DONNEES PRIMAIRE EN COURS D'UTILISATION 
à CIP TP DIN DECIMALE(S) 
î 002 ADRESSE  ÇC 0% 

î 03 CODE C @ùs 

: NS OM À 

5 GB SALAIRE ON 008 02 

: #IOTL # 06100 


LPER EL LATE ENT UE 


$ 


RRQ GR QD 29 GIE LG BE QE D GG QG D D QG BE GE GR GG A GP GA 


Bab ge D Le me ED CR ER Le DD DE D DCR CDR R TE D CRU DÉ DELLA EL GARE RR D LE DE Le 
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INTERFAÇAGE 
D'INFO.CMD 


Comme nous venons de le voir, les informations 
relatives à un champ précis d'un fichier quelconque 
sont dans des enregistrements de CHAMPS.DBF 
dont chaque numéro correspond à celui d'un 
champ. 


Donc pour récréer l'équivalent de FIELD sous 
DBASE IX, nous ferons 


DBASE II + INFO.CMD 


USE CHAMPS <RETURN> 
GO 3 <RETURN> 
? CHAMP 


Qui équivaut à ? FIELD(3) sous DBASE III 


Cet exemple correspondant au champ 3 maïs aurait 
pu fonctionner pour n'importe quel autre numéro 
de champ. 


Autre avantage d'INFO est que nous avons en plus 
bien d'autres informations sur ce même champ 
(longueur, type et nombre de décimales). 


rottereeseeeeereereer une méthode unique ; 
comprenant plus de cent exercices :"nnr 
progressifs en rythme et en difficulté :: oo: 


Pour ce qui concerne les informations liées au 
fichier lui-même, nous aurons alors affaire aux 
variables remplies par INFO.CMD dont voici le 
détail. 


INFORMATIONS VARIABLES 
Nombre d'enregistrements du fichier NBENR 
Nombre de champs du fichier NBCHAMPS 
Jour, mois et année JOUR, MOIS et AN 
Nom du fichier... FICHIER 
Nombre d'octets par enregistrement NBOCTET 


Nous voici arrivé au terme de cette plongée dans 
les petits secrets de DBASE et la suite est promet- 
teuse n'en doutons pas. A bientôt... E 


LES COMMANDES 
ET FICHIERS DE 
CET ARTICLE SE 
TROUVENT SUR LA VPN 
DISQUETTE 
ECHO N°23 
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le langage machine ! 


Par Philippe THOMASSIGNY (Métal WOLF) 








Le 1/2 octet 


(0001) 
(0001) 
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1: L'HEXADECIMAL 





L'hexadécimal est, en fait, une simplification 
d'écriture du binaire. Pour cela, on scinde l'octet 
en deux sous-groupes de 4 bits, et chacun va être 
représenté par un caractère. Il y aura donc 16 
caractères différents, de 0 à 9 etde AàF: 


Les mêmes opérations se font en hexadécimal 
et en binaire (addition, soustraction, octet signé.….). 
Un nombre négatif en hexadécimal sera supérieur 
à 7F, qui est le plus grand nombre dont le 7ème 
bit est à 0. FF en hexadécimal peut être -1 (1111 
1111), etc. Voir les exercices plus loin. 

Nous connaissons donc maintenant 3 bases : 


0000 est représenté par 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 
1111 
0000 
0001 


Exemple: 
0011/0101 53 décimal 


3 | 5 hexadécimal 


7 | F hexadécimal 
11111111 en binaire 


127 en décimal 





Maintenant que nous connaissons les bits, 
Les octets, tout ça c'est bien beau, mais ça 
prend de la place et c'est long. Alors nous 
allons voir une méthode plus simple pour 
exprimer un octet, pour compter, etc. et ça 
s'appelle, je suppose que vous l'avez deviné : 
CHEXADECIMAL... 


le binaire, qui se rapproche le plus des échanges 
de données dans l'ordinateur; l'hexadécimal, qui 
n'est qu'une simplification du binaire et le décimal, 
évidemment. Mais il faut différencier les écritures. 
Pour cela, plusieurs ‘formats’ existent : le premier 
consiste à mettre l'initiale de la base à la fin du 
nombre (par exemple 72d, 3Eh, 00010110b, 5434, 
32h, etc...); le second étant le format utilisé par le 
basic : les nombres décimaux n'ont aucune 
marque, le binaire est précédé de &B, et l'hexadé- 
cimal de &H (exemple : 534, &HOF, &B00110101); 
le troisième format consiste à mettre devant 
chaque nombre un signe caractéristique : le $ (dol- 
lar) est utilisé pour les nombres décimaux, le # 
(dièse) est utilisé pour les nombres hexadécimaux 
et le % (pourcent) pour les nombres binaires 
(exemple: $212, $78, #4E, #FC, 00110101, 
%11101101). On adoptera la troisième solution 
pour plusieurs raisons : Clarté de l'expression (on 
voit tout de suite la base utilisée), pas de risques 
de confusion, rapidité de l'écriture….(loués soient 
les fatigués de naissance !). 


N.B.: Une quatrième base est utilisée : c'est la 
base 8 ou octale. Mais elle est peu (pour ne pas 
dire jamais) utilisée. Elle regroupe les bits trois par 
trois. Les signes vont de 0 à 7 et les formats sont : 
le ‘o' qui suit le nombre, le &O qui précède le 
nombre, et enfin le signe & devant le nombre. 

L'hexadécimal peut aussi être représenté par 
un $ dans certains langages (comme le PASCAL). 
Mais là, le décimal n'a pas de différenciation. 





mes 





(Deuxième épisode) 





Comme nous l'avons déjà vu, on peut coder un 
nombre sur le nombre de bits que nous voulons, 
en l'occurence sur 16 bits, soit deux octets. Le 
nombre va alors de 0 à 65535, ou de #0000 à 
#FFFF. L'ordinateur comprend ce codage, et c'est 
ce dernier qui va lui permettre de pouvoir accéder 
à la fois à 64 Ko de mémoire, soit 65536 octets et 
non pas 256 seulement! (Ouf! quelle puissance!). 
Dans la mémoire, les deux octets se suivent. Le 
premier octet est appelé OCTET LE MOINS 
SIGNIFICATIF (OMS), c'est-à-dire que ce sont les 
8 premiers bits du nombre (bits de 0 à 7, soit les 
exposants de 2 de 0 à 7); le second octet est 
l'OCTET LE PLUS SIGNIFICATIF (OPS) (expo- 
sants de 2 de 8 à 15) : 





alors des octets. Mais ceux-ci ne sont pas rangés 
anarchiquement dans la RAM. En fait, chaque 
octet de la RAM est affecté à un numéro allant de 
0 à 65535, ou de #0000 à #FFFF. On peut consi- 
dérer la RAM comme une succession de cases 


ler octet 2ème octet. 
os 1. Ms 


CE D D DS D D DS DR D ES ES EN 
Bits n° 15 14 13 12 11109 817 6 5 4 3 2 1 0 





numérotées de #0000 à #FFFF. 
Dans la mémoire : 
Exemple : un fragment de la RAM : 
ler octet 
rs Octet N° 
| 5 #0043 | | 
Bits n° 7 6 5 4 3 2 1 O 15 14 13 12 1110 9 8 40044 | | 
: #0045 Las 
Exemple de codage: #0046 | | 
ler octet : #00110101 #35 #0047 ES, 
2ème octet : %11000010 #c2 #0048 Re, 
Soit : #C235 ou 49717 #0049 =" 
#004 = 2) 
#004B |__| 


11 12 13 1 4 1 5 | 6 1 7 | 8 | 9 | À | BR | C | D | KE | EF | 
a PR PR RE) RES EP EURE, ES, PS ES PR | 
l-ler chiffre | 1 |_2 1 3 | 4 1 5 | 6 1 7 1 8 | 9 | 10 | LL | 12 | 13 | 14 | 15 | 
(Re ER, ERR RE PRRER RRR CORRE RE ES RSR) RER PRE OR PRE CORRE EEE 
a 
pe | 


me 2e | 2 (1m | 202 | 1280 180611092241 2206 | 25601 20161 20021 2320 | 28 | 280 
| | 





Exemple : Le nombre #42FC sera égal à : 
12+240+512+16384-17148. 

Le premier chiffre est le "C’, le second le ‘F', le 
troisième le ‘2’ et le quatrième le ‘4’. De même, le 
nombre #FC sera égal à 12+240-252. 

S'il y a un zéro, on n'ajoute rien, évidemment. 

Pour aller dans l'autre sens, on retranche un 
nombre de chaque ligne du tableau dans l'ordre 
décroissant, si l'on peut. 

Exemple : le nombre 28537. Le premier nombre le 
plus grand que l'on peut retrancher est 24576. Il 
reste alors 28537-24576-3961. 

A ce nombre, le suivant que l'on peut retrancher 
est 3840. Il reste alors 3961-3840-121. Puis on 
retranche de même 112; il reste 9; on retranche 9, 
il reste 0. Donc le nombre 28537 peut s'écrire 
24576+3840+112+9, soit en hexadécimal #6F79. 
Autres exemples : le nombre 16385 peut s'écrire 
de même 16384+0+0+1, soit en hexadécimal 
#4001. Le nombre 12 s'écrit 0+0+0+12 soit #000C. 





Q1 : LE MICROPROCESSEUR (uP) 
ET LA RAM 


AP La RAM. 


Nous avons vu précédemment que la RAM 
stocke des données sous forme de signaux élec- 
triques, appelés bits, et rangés par huit. Ce sont 





ap Les ‘BUS 


Lorsque le LP a besoin de lire, par exemple, la 
case mémoire #045E, il envoie tout d'abord le 
numéro de la mémoire à la RAM, par ce qu'on 
appelle le BUS D'ADRESSES. Ce bus est un 
ensemble de 16 conducteurs électriques, qui vont 
véhiculer le numéro de la mémoire à lire sous 
forme de bits. Ce ‘nombre’ est appelé ADRESSE 
MEMOIRE, ou tout simplement ADRESSE. 
Ensuite, la RAM 'décode' cette adresse, et ren- 
voie la valeur qu'il y avait dans la mémoire #045E 
sur d'autres conducteurs électriques, au nombre 
de 8, qui s'appellent le BUS DE DONNEES. Le uP 
n'aura alors qu'à lire l'octet sur ce bus. 

En bref, le bus de données sert aux échanges 
entre le UP et ses périphériques, dont la RAM, et 
le bus d'adresses sert à déterminer sur quel octet 
de la mémoire s'effectue le travail du LP. 


EXERCICES 
QUESTIONS : 
Donnez les valeurs en décimal de : #FFFF, #453A, #98, #EA32, 
#86, #AE, #0400, #8000. 
Donnez les valeurs en hexadécimal de : 8743, 37281, 10000,37, 
9823, 1829, 1024, 57854. 


REPONSES : 

#FFFF=65535; #453A=17722; #98-152; #EA32-59954; 
#86-134;#AE=174; #0400=1024; #8000=32768.8743=#2227: 
37281=#91A1; 10000=#2710; 37-#25; 9823-#265F; 
1829=#0725; 1024-#0400; 57854-#E1FE. 
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BANK 
COMMUTABLE 


KERBDOS 


Tableau 1 
CARTE 


MEMOIRE 











IV L'ORGANISATION DE LA MEMOIRE 


MP LES BANKS MEMOIRE 


Comme nous le savons, le PCW contient 256 
ou 512 Ko. La mémoire est décomposée en plu- 
sieurs parties de 64 Ko chacune. On les appelle 
les BANKS. 

Le PCW 8256 contient donc 4 banks, numéro- 
tés de 0 à 3; et le 8512 (9512 aussi) les mêmes 
plus quatre autres numérotés de 4 à 7. (Voir la 
carte de la mémoire ci-dessous). Les cases- 
mémoires sont numérotées de #0000 à #FFFF 
dans chaque bank. Une particularité du PCW est 
de pouvoir commuter une partie d'un autre bank 
avec le bank courant, ce qui est utile, par exemple, 
pour avoir accès à l'écran tout en restant dans le 
bank 1. 


La TPA est la zone utilisateur. Lorsque vous pro- 
grammerez, vous entrerez toujours vos pro- 
grammes dans la TPA à partir de l'adresse #0100, 
de manière à ce qu'ils soient directement utili- 
sables en programme .COM. 


Nous nous intéresserons au reste brièvement pour 


l'instant (des chapitres y seront consacrés plus 
spécialement) : 


BANK 0 


CARACTS. 


TBLESCR 


ECRAN 


ECRAN 


GESTION 
CP/M 


GESTION 
MACHINE 














MP L'ECRAN 


Un PIXEL est le carré de base affiché à l'écran. 
Il fait environ 1/2 mm (hauteur) sur 1/4 mm (lar- 
geur). Chaque pixel est représenté en mémoire 
par un bit. 

L'affichage de l'écran se fait en 255 lignes et 
720 colonnes. || y a donc 255*720-184320 
pixels. L'avantage de cette trame fine est qu'un 
pixel seul sur une ligne peut donner l'impression 
de vert foncé, et deux pixels côte à côte, ou plus 
peuvent donner l'impression d'une couleur claire. 

L'écran se situe des adresses #5930 à #B600. 
La Table d'écran (TBLecr) détermine l'adresse de 
chaque ligne de l'écran; elle se situe des adresses 
#B600 à #B800. Elle contient des vecteurs codés 
de la manière suivante sur 16 bits pour donner 
l'adresse du premier octet de chaque ligne : 


ADRESSES 


- #FFFF 


- #F600 


DISQUE M 


- #C000 
- #BA00 
- #B800 
- #B600 


- #8000 


= DISQUE 
VIRTUEL 


DISQUE M: 
CATALOGUE 


DISQUE M: 
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PERL == — 





- Les bits 3 à 15 donnent l'adresse réelle divisée 
par 2. 

- Les bits 0 à 2 donnent un nombre entre 0 et 8 
qui ajustent une ligne. 

- Ensuite, le PCW affiche un octet sur huit 90 fois 
(car il y a 90 lignes). 


S'il y a le vecteur #3C5E : on le décompose en 
#3C58+#6. Il pointe alors : 
#3C58x2+#6-#78B0+#6-#78B6. 
Le PCW affichera à la suite les octets 
#78B6,#78BE,#78C6,...,#7B7E 
sur la même ligne. Le vecteur de la ligne n est à 
l'adresse #B600+n x 2. 


Remarque : 


un VECTEUR est un mot (=un ensemble) de 16 
bits qui détermine l'adresse d'un programme, 





8 lignes de pixels 
représentent une 
ligne de caractères. 


TRAME ECRAN 


d'une table, etc... L'adresse d'un vecteur est l'en- 
semble des deux octets-mémoire où est stocké le 
vecteur. On donne l'adresse du premier. 


On peut donc, d'après ce codage d'écran, dépla- 
cer les lignes entre elles, écrire plusieurs fois une 
ligne... (nous verrons les applications plus tard). 
Lorsque le curseur est en bas d'écran et que l'on 
appuie sur <RETURN», en fait, le CP/M ne dépla- 
ce pas la mémoire en bloc, mais change les vec- 
teurs de chaque ligne, ce qui est beaucoup plus 
rapide (environ 100 fois plus rapide). 

Ce qui donne en définitive une trame définie 
comme l'illustre le tableau 2. 


Chaque octet représente 8 pixels sur l'écran, dans 
l'ordre d'écriture (le bit n°7 représentera la colonne 
n°0, le n°6 la colonne n°1, etc...). 

Lorsqu'on allume le CP/M, l'écran est initialisé et 
on peut en donner la carte du tableau 3 (des 
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octets, correspondant aux groupes de 8 pixels). 
Pour passer d'un octet à un autre octet 8 lignes en 
dessous sur la même colonne, il faut ajouter #2D0 
(=90 colonnes fois 8 octets par caractère). 


Et la Table écran est la suivante : 


#2C99 #2C9A #2C9B #2C9C #2C9D #2CIJE #2C9F 

#2E01 #2E02 PE sas ss #2E07 

#5831 #5832 #5833 #5834 #5835  #5836 #5837 
Que l'on peut traduire en adresses : 

#5931 #5932 #5933 #5934  #5935  #5936  #5937 

#5C01  #5C02 Ses vs Mes #5C07 

#B061 #B062 #B063 #B064 #B065  #BO66  #B067 


Ce qui correspond bien aux adresses du premier 
octet de chaque ligne. 
Voilà, l'écran n'a plus de secrets pour vous... 


N.-B: Comme on peut mettre n'importe quelle 
adresse pour l'écran, il est fréquent que certains 
programmes définissent l'écran de #5C00 à #B600 
(comme PCW PAINT) ou de #5A00 à #B400. On 
pourrait encore le redéfinir de #0000 à #5A00, 
etc. Mais ATTENTION A CE QU'IL N'Y AIT PAS 
DE PROGRAMME !. 

(Voir l'emplacement du CP/M ci-dessous). 


MP LES CARACTERES 


Le PCW possède des caractères dits "ASCII" 
(prononcer asqui), c'est-à-dire qu'ils sont codés 
suivant une norme internationnale : à chaque 
caractère est associé un numéro compris entre 0 
et 255, ce qui permet de coder un caractère par un 
octet. Pour avoir les correspondances, voyez votre 
manuel : LIVRE 1, ANNEXE 1, paragraphe 1.4 
(page 106). Par exemple, si on trouve dans la 
mémoire l'octet #45, il peut correspondre soit à 
une instruction de programme, soit à la lettre E. 

Les caractères sont définis grâce à une matrice 
de huit pixels par huit : soit 8 octets en mémoire. 





Valeur contenue: 


Il : pixel éteint. 


Le] : pixel allumé 


Octet 
Octet 
Octet 
Octet 
Octet 
Octet 
Octet 
Octet 


n 

n+l 
n+2 
n+3 
n+4 
n+5 
n+6 
n+7 


1-#18 | 
1-#3C | 
1-#66 | 
1-66 | 
HE | 
1-#66 | 
1-#66 | 
1-#00 | 





La table des caractères se situe de #B800 à 


#BFFF, c'est-à-dire juste après l'écran. Le premier 
octet de la matrice de la lettre de code ASCII I se 





situe donc en #B800+1 x 8; les octets suivants aux 
adresses suivantes. 


Exemple : 


La matrice de la lettre A, code ASCII=#41, est à 
l'adresse suivante : 
#B800+#41x8-#B800+#208-#BA08. 


MP LE BIOS 


Le BIOS est avec le BDOS (voir ci-dessous) un 
ensemble de programmes en code machine qui 
servent à gérer le PCW (écran, imprimante, lecteur 
de disquette..). Chaque fonction du BIOS peut 
être appelée par une adresse spécifique. On 
appelle ces programmes les FONCTIONS du 
CP/M. 

Voyez la carte de la mémoire pour voir où se 
situent les programmes du BIOS et du BDOS. On 
appelle ces fonctions à partir de l'adresse #F600. 
(mais nous reparlerons de tout cela). 


AP LE BDOS 


Contrairement au BIOS, le BDOS est appelé à 
une seule adresse, mais avec un octet qui va don- 
ner un numéro de fonction correspondant à la 
fonction que l'on veut faire exécuter au program- 
me. Le BDOS dispose des mêmes fonctions que 
le BIOS, mais en possède de nombreuses 
autres. Mais nous aurons le temps de reparler de 
tout cela. 


A Et le reste. 


La page 0 : c'est la mémoire des adresses 
#0000 à #0100: elle contient les vecteurs d'appel 
des fonctions BDOS, des interruptions. 

La GESTION MACHINE dans le BANK 0 est 
un programme qui règle l'affichage des caractères, 
la gestion de l'écran, qui envoie des caractères à 
l'imprimante. On l'appelle aussi KERNEL. 

Le disque virtuel M: est une partie de la mémoi- 
re dans laquelle on peut écrire des fichiers de la 
même manière que sur un disque. 


Mais c'est assez pour aujourd'hui et à la pro- 
chaine fois ! = 
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DISPONIBLE SUR PC ET COMPATIBLES 


ps: 


| 








AST] 


POUR PCW 8256/8512 


Tout 
sur votre personnalité. 


ASTRO 1 


e Carte thème de 
naissance 

e Carte du ciel de 
naissance avec maisons, 
signes, planètes et 
aspects majeurs 

e Interprétation du thème 
de naissance 

e Personnalité profonde et 
ambition 

e Fichier de plusieurs 


centaines de personnes... 
4 






Sachez ce que l'avenir 
vous réserve. 


ASTRO 2 


Comme ASTRO 1 avec en 
plus : 


e Calcul et édition des 
révolutions solaires 
année par année 


e Carte du ciel de chaque 
Révolution solaire 


e Interprétation du 
potentiel de l'année : 
Amour, argent, travail, 
santé, etc... 

NI 















La version complète 
des initiés. 
ASTRO 3 


Version incluant ASTRO 2 
+ ASTRO COUPLE avec en 
plus : 


e Révolutions lunaires 


e Directions Primaires 
{avec pôles des planètes) 


e Directions Progressées 
et Symboliques 


e Calcul du Maître de 
Nativité selon la méthode 


de Volguine. 
er) 


À 







Q 


ù) 

Découvrez 

votre entourage. 
ASTRO COUPLE 
+ Carte du ciel composite 
e Aspects planétaires 

e Comparaison des thèmes 


e Interprétation des 
relations du couple 
{plusieurs pages) 


+ 
o 
SN 
nm 
© 
= 
(a) 
Q 
uw 
Wu 
œ 
© 
« 
[< 
2 
Lu 
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Lu 
> 
Lu 
œ 
Wu 
œ 
rs 
© 
> 
N 
Wu 
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Par Claude V. TOULOUSE 







Le petit m ous propose 


\S @ 


Ce montage se connecte sur le bus arrière 
du PCW (figure 1). |! est entendu que la 
broche n°1 est en haut à gauche, et que tous 
les numéros impairs sont à gauche vu de l'ar- 
rière; que la broche n°2 est en haut à droite, 
et que tous les numéros pairs sont à droite, 
vus de l'arrière. 


La broche n°8 est une sortie 12 V 500 mA. 


Les broches n°5 et n°6 sont des sorties 5 V 
permanentes. Les broches n°49 et n°50 sont 
reliées à la masse. 


@ LISTE DES COMPOSANTS 


- Une résistance de 47 ohms 3 Watts bobinée 
- Un régulateur 2806 ou 7806 

- Quatre batteries 1,2 V 4 AH 

- Une diode 1N4005 

- Une diode de sortie type BY229 

- Un buzzer 5 V ou 6 V CC (Monacor PEB 
905) 

- Un interrupteur quelconque 

- Un support de fusible 

- Un fusible rapide 1 Ampère 

- Quatre accus type 5020 Varta 

- Deux ou quatre boîtiers supports (Monacor 
À 3011T) 

- Une fiche standard 2 X 25 broches mâle 








Au cas où ce bornier serait déjà utilisé, se 
servir des cordons existants et souder les fils 
de l'alimentation sur la fiche côté PCW 
- Une boîte en plastique type TEKO (type P3) 
ou autre 


PRIX : 330 F, sans la fiche standard, proposé 
par CIBOT, Magasins d'électronique à PARIS 
(1,3,12, rue de Reuilly - 75012 - tél: 
43.79.69.81) et à TOULOUSE (25, rue 
Bayard - 31000 - tél : 61.62.02.21) 


@ REALISATION DÜ MONTAGE 


RAPPEL IMPORTANT 


Ne prenez pas de piles ,mais des batteries 
qui n'ont aucune résistance interne. 


Je conseille aux personnes qui n'ont jamais 
réalisé de petits montages électroniques, de 
faire assembler le tout par un habitué de la 


chose. La vie de votre PCW est en jeu ! 


Vous pouvez tout assembler sur une pla- 
quette perforée ou coller le tout sur le bloc 
batterie. Pour le câblage, il faut faire attention 
à la polarité des diodes, batteries, régulateur 
et buzzer. 

Important : il ne faut pas mettre de radia- 
teur sur le régulateur, ni le fixer sur une surfa- 
ce pouvant faire office de radiateur tel qu'un 
boîtier métallique par exemple. 

Pour vérifier le montage, connectez une 


fiqure 1 : Câblage et repères 


7006 ou 2806 


t + 
in + J2V neg vu 


sens diodes 


I — 
repére 


——— 
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source de courant continu d'un voltage se 
situant entre 10 et 30 Volts (batterie de voitu- 
re, par exemple), le positif (+) sur la broche 
n°8 de la fiche, et le négatif (-) sur la broche 
n°49/50 de la fiche. Connectez une charge 
entre les broches n°5/6 et n°49/50, comme 
une ampoule de lampe de poche 4,5 V qui 
fera très bien l'affaire. Celle-ci ne doit pas 
griller ! 

Le mieux est, tout de même, de vérifier au 
voltmètre : broche n°5/6 de 5,1 à 5,3 Volts 
(ampoule branchée), sortie du régulateur 6,1 
Volts (fusible enlevé). 

Une fois ces vérifications effectuées, isolez 
bien toutes les connections et immobilisez les 
composants. 


Les piles rechargeables étant toujours ven- 
dues à "plat", ou si vous préférez déchar- 
gées, il faudra attendre au moins cinq heures 
de "marche" normale pour qu'elles soient 
capables de remplir leur mission. On peut 
estimer qu'à partir de 5,5 Volts le pack batte- 
rie est chargé à 80%. Le fait de mettre en 
marche le PCW recharge les batteries, 
quelque soit la position de l'interrupteur de 
l'alimentation. Le buzzer sonnera en cas de 
coupure de l'alimentation secteur du PCW ou 


Œ = um um Ou Ou OS D D D D NO OS NO D US OU Ou un un mu Le 


COMMANDEZ PAR TELEPHONE 





fiqure 2 : Schéma de principe. 


sortie SV 


à l'arrêt de votre ordinateur si vous oubliez de 
couper l'alimentation. 


Attention : si le voyant du lecteur s'allume 
franchement en cours de sauvegarde, vous 
pouvez arrêter, tout est perdu !.… batterie vide. 


Maintenant, il ne vous reste plus qu'à bran- 
cher votre PCW et son alimentation... 


pour nous concocter de bons petits pro- 
grammes sans coupures | 


TOUS LES PRODUITS DE L'ECHO DU PCW 





_= PLUS RAPIDE AVEC LA CARTE VISA/CARTE BLEU 


24 HEURES 1! 


<a ES EN CN DS CN ON UN CON ON ON OURS GUN CN CN UN DUN CN ON DOS ON D D ou LE 





“POUR VOS COMMANDES TELEPHONIQUES , 1 SEUL NUMERO : 


(1). 48 65 44 55 
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Par 






Philippe 
SOUPAULT 









Pas besoin d'être malade du cerveau pour percer 
les secrets de vrille de ce petit programme ludique 
simple mais efficace. Il suffit de taper les lignes du 
programme sans faire une faute pour se préparer 
aux longues soirées d'hiver qui nous attendent. 
Dans la veine des ZAZA, MAX et autres ludicités, 
TREPAN peut vous faire perdre la tête si vous en 
abusez sans lucidité. Et si vous attrapez un mal de 
tête, prenez donc une pastille! En tous cas, plus 
trépané que lui, tu meurs (tumeur!..drôle, non?). 


TREPAN QU'EST-CE ??? 


TREPAN est un jeu d'arcades étonnant grâce auquel 
vous allez vivre des instants palpitants, et qui va faire 
frissonner de joie votre PCW préféré. 


Résumons : 


Dans ce jeu délirant, vous maniez un trépan docile 
dans un sous-sol infesté de monstres hideux dont on 
ne voit que les yeux globuleux (on est dans la 
pénombre). Ces monstres se baladent nonchalam- 
ment de droite à gauche et de gauche à droite dans 
des couloirs pleins de pastilles; ils sont donc pour 
ainsi dire les gardiens de ces pastilles si précieuses 
(pour vous), et ne manqueront pas de vous grignoter 
le trépan si vous faites l'erreur fatale de passer à leur 
portée. 


Votre mission, si vous l'acceptez, est donc de manger 
un maximum de pastilles et de réaliser les scores les 
plus hauts possibles. Pour ce faire, je vous conseille 
ardemment de manger les pastilles qui valent le plus 
de points : celles du premier couloir ne rapportent 
que 100 points, celles du sixième couloir valent 600 
points !!! Quand vous avez glorieusement avalé 240 
pastilles dans le premier tableau, vous passez au 
tableau suivant et ainsi 
de suite. Et vous aurez 
gratuitement et par un 
miracle encore inex- 
pliqué, une vie en 
prime tous les cinq 
tableaux (à ce propos 
vous démarrez le jeu 
avec cinq vies). 





anale à 8 à ee ee ee à D 0 D ----.--.--. 
SENSSTISTTNSITNNNNENNNNNNTENTNNNNNNNNTNNNNTNNTNNSITNNNNINNNNNNNNNISAANTIIIINT 








sans DBOnne chance et 





bonne chasse aux pastilles. Et attention aux monstres 
en haut quand vous êtes en bas... 
Quelques remarques concernant le programme : 


Sur les recommandations du vénéré Gilles PROBST, 
le nombre de pastilles demandées par tableau est fixe. 
Mais si vous désirez avoir une difficulté croissante 
dans vos exploits souterrains, ne tapez pas la ligne 
380, ou modifiez-la en mettant "pastid" égal à un 
nombre de 10 à 240 (cette variable conditionne le 
nombre de pastilles demandées avant le passage au 
tableau suivant). A mon humble avis, c'est beaucoup 
mieux sans la ligne 380. EH 





10+'e+*4&TREPANe*tt4e (real.+10+6°11.09 
20°'+Par+PHILIPPE+SOUPAULT 

30°'-Pour-L'Echo-du-PCW 

L''OUCELEELELEEEEEEEESEEEEEEEESE ESS 

SO°DEFINT-A-z: ! + (M9) 

60°C$=CHR$ (27) + (JP) 

65+a1$=CHR$ (234) :a2$=a1$ta1$' + (31) 

TO°PRINTec$+"E*! + (LR) 

80° DEF *FNp$ (x,y)=c$+"Y"+CHRS (31+y) +CHRS (31+x) ! » (WI) 
90-DIM-px (200) , py (200) "+ (W6) 

100monster$ (0)="00":monster$ (1}="o0" :monster$ (2)=STRINGS (2, 
188) :monster$ (31="++"!+ (PC) 

110+'-explique 

120-PRINTec$+"H"'e (N2) 

130+RESTORE +1 40: GOTO+240" + (1Y) 

140+DATA +" e<e<e<eTeReEePeAoNreDeDeDen oc p=e", Me DANSeCE JEU 
*DELIRANT, + IL +FAUT *ENGLOUTIR®DES *PASTI LLES + DI SSEMINEES + DANS + 
DES +COULOIRS+"+:!°(I8) 

150+DATA +" +ET+CECI *GRACE A +UN+TREPAN° (comme-pour-le-petrole, 
+‘Daaalaaas}, SANS +SE+FAIRE + TOUCHER + *, * *PAR + LES -MONSTRES + DONT 
*ON°NE + VOIT QUE + LES » YEUX *GLOBULEUX . *ATTENTION, °ON°PEUTeSEe": 
"e (63) 

160 *DATA +" + FAIRE +AVOIR + SUR + TOUTE + LA + LONGUEUR +DU°TREPAN! +IL+F 
AUT + DONC REGARDER + PARTOUT + EN +MEME + *, * + TEMPS, + LES +PASTILLES +D 
U+1ER + COULOIR + VALENT » 100 *POINTS, +ET CELLES + DU + 6EME + COULOIR *" 
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:'e (A9) 

170 DATA +" + 600 POINTS + (CA + VAUT *DONC * LE COUP +DE *PRENDRE +DES +R 
ISQUES) . °ON-PASSE+AU+", * -TABLEAU + SUIVANT *QUAND *ON + A -RECOLTE + 
LE *NOMBRE + DE + PASTI LLES DEMANDE. + *: ! + (VD) 

180 DATA +" LES DIRECTIONS + SONT *FLECHE + GAUCHE + ET + FLECHE DROIT 
E+ (DANS + LES COULOIRS UNIQUEMENT) *ET +", "FLECHE BAS + POUR*DESC 
ENDRE . *POUR + REMONTER + VOTRE + TREPAN *AVANT®QU'UN+MONSTRE*NE°LE + 
"s'e (IR) ° 

190 DATA +" -GRIGNOTE, +PRESSEZ + VIGOUREUSEMENT + SUR + LA + BARRE *ESP 
ACE.+":'.{(5P) 

200 DATA + * + VOUS * AUREZ + GRACE + A °UN *MIRACLE + INEXPLIQUE +UNEeVIE+ 
EN +PRIME + TOUS + LES + 5 TABLEAUX. +", "eALLELUYAe!!1e":1e(S5) 


240+PRINTec$+"p":FOR°i=1 °TO+14:READea$ :PRINTeFNp$ (+ (90-LEN (a 
$))/2,1*2);a$:NEXT:PRINTec$+"q"! + (W9) 
250+FOR°i=1 7020: a$=INKEYS:NEXT! + (F7) 
260-b$="e-ePeREeSeSeEsZereEeSePeAsCeEreeSe eVe,ePe,e"!e (E4) 
210+FOR°i=1 eTO+LEN (b$) :PRINTeFNp$ (90, 30) :MID$ (b$,i, 1) ; FNp$ (1 
130); c$+"N" "+ (YL) 

280°1F°INKEYS="" THEN °NEXT: GOTO+ 270! + (JC) 
290+PRINT-CHRS$ (7) ; ! + (RW) 

300b$="e-eMeEeReCeIele"te (MW) 

310-POR+t=1 «TO +90/LEN (b$) : FOR i=1 +TO+ LEN (b$) : PRINT eFNp$ (90, 3 
0):MIDS(b$,i,1);FNp$ (1,30); c$+"N":NEXT:NEXT! + (GU) 


350+flag=0:nc=0:x=5+INT (RND*34)*2:y=7" + (P6) 
360+FOR°i=0eTOe4:d(i)=-2:x(i)=1:y(i)=10+i*3:NEXT' + (28) 
310+tableau=tableau+1 : past id=50+tableau*10:IF-past id>200*THE 
Nepast id=200" + (HH) 

380-Pastid=240: *'epour-avoir-unenombre-croissant +de-pastille 
separ-tableau, ‘virer*cette-ligne'+ (DM) 
390+1F-tableau+MOD°5-0+THEN-evie=vietl:PRINT-c$+"E" :PRINT+FNp 
$(25,15) ; "UNE +VIE+EN°PLUS, °UNE : ALLELUYA +! !!":FORet=1+T0*100 
O:NEXT' + (K2) 

400-GOSUB+810'°{J1) 
410+a$="":FORet=1eTO+ 40: a$=a$+" + "+CHRS (146) :NEXT' + (WM) 
420-FOR°t=0+TO+5:couloir$(t}=a$:NEXT' + (N5 

430+pasti=0' + (HX) 


ASOPRINTec$+"E"+c$+"H"+ "SCORE: * 000000 "#STRINGS (17,255) +"°T 
°ReEePeAoNe"#STRINGS (17,255) +"+HIGHeSCORE: + + +000"! + (6J) 

460 °PRINTe"PASTILLES:+e+/";pastid;"ee+TREPAN:";vie;"eseeN 
[eTABLEAU: *;tableau" + (B4) 
470PRINTePNp$ (74,1) ;USING-"##tt";hscore!' + (OX) 

480+PRINTePNp$ (8,1) ;USING-"##H#"; point :PRINTeFNp$ (11,2) ;USIN 
Ge"#f";:pasti'e(93) 
490+a=165:b=255:PRINTeFNp$ (1, 7); STRINGS (80, a1$):FOR°i=0eTO°5 
:PRINT*STRINGS (80, a) :PRINT*STRINGS (80,b) :PRINTecouloir${i):N 
EXT:PRINTeSTRINGS (80, *_") :PRINT+STRINGS (80, 254) ! + (TK) 

500 °PRINTeFNp$ (x+1, 3) STRINGS (2,238) :PRINTeFNp$(x-2,4)#"_ " 
+STRINGS (2,238) :PRINTeFNp$ (x-3,5);"/..... "+CHRS (245) :PRINT+F 
Np$ (x-3, 6); CHR$ (238); "eocoe"; CHRS (238) ' + (OV) 





520+'+boucle-P. 
530+a$=CHR$ (30) : GOTO* 630! + (ZF) 


550°r=INT (RND*5) ! + (00) 
560°IFex(r)<2°0ORex(r)>77°THENed(r)}=-d(r) "+ (M) 
570+PRINTeFNpS (x(r),y(r))}:MID$ (couloir$(r),x{r),2) + (AG) 
S80°x(r)=x(r)+d(r) "+ (RM) 

590+1F-MID$ (couloir$(r),x(r),2)=a2$®THEN°PRINT*CHRS$ (7) :GOTO+ 
880'°(S1) 

600PRINTeFNp$ (x (r),y(r) };monster$ (RND#2) + (X3) 


Gifs} sets nee 

620+a$=INKEYS: IF+a$=""°THEN°550" + (92) 
630-1F-a$="+"+ANDenc>1®THEN-PRINTeFNp$ (px{nc) ,py{nc)};"++":a 
=x:nc=nc-1l:x=px (nc) :y=py (nc) :IF-flag=1*THEN°i=(y-10)/3:MIDS ( 
couloir${(i},a,2)="+e":GOTO0-690:ELSE +690" + (VP) 

640°IF e (y+2) MOD+3=0°THEN° flag=1 *ELSE + flag=0" + (SN) 
650°1F-a$=CHRS$ (1) * AND f1 ag *AND +x>2 * THEN°x=x-2 : GOSUB » 700: GOTO 
+550! + (PC) 

660°1F-a$=CHR$ (6) ‘ANDeflageANDex<78+THEN°x=x+2 : GOSUB° 700 : GOT 
0°550'+(R3) 

670°1F-a$=CHR$ (30) *ANDe+y<25 THEN +y=y+1 :GOSUB+780:nc=nct1:px | 
nc)=x:py (nc)=y:PRINTeFNp$ (x, y) ; a2$ : IF + flag ®THEN*GOSUB + 720: G0 
TO* 550 :ELSE +550" + (36) 

680 +GOTO +550" + (HD) 

690 -GOSUB+ 780 : GOTO» 550! + (Y3) 

100enc=nct1:px (nc)=x:py (nc)=y:PRINTeFNp$ (x, y) ; a2$: GOSUB* 720: 
RETURN ' + (7M) 


720+i=(y-10)/3'+ (JD) 

730+1F-MID$ (couloir$(i),x,2)="+"+CHR$S (146) *THENepasti-pastit 
l:point=point+1+i:PRINT-FNp$ (8,1); USING*"####";point :PRINT*F 
Np$ (11,2) ;USING*"###";pasti:IF-pasti=pastideTHEN+760! + (XC) 
740-MID$ (couloir$(i},x,2)=a2$" + (A3) 

750 +RETURN' + (HO) 

760-FOR°i=1*TOnc:PRINT-FNp$ (px(i),pyli)};"++":NEXT:GOTO*350 
'+ (MB) 


180+1F + (y+2) -MOD+ 3-0: THEN f1ag=1 *ELSE + flag=0' + (SS) 
190-RETURN! + (HS) 


810-REM: next 

820+FOR°i=1 +TO+10:PRINTeCHRS (7); :FOR°t=1 °TO+100:NEXT:NEXT: °P 
RINTeFNp$ (1,1); :FOR°i=1eTO+85:PRINTeC$+"N"; :NEXT: °FOR°i=1 TO 
*40:PRINTec$+"I"; :NEXT' + (9L) 
830+1=(tableau-1)*10:a$="TABLEAU"+STRS (tableau) +*+>>>eBONUS" 
#STRS (1) +"00"! + (BV) 

840-point=point+i' + (V5) 

850+FORet=1 TO +30: PRINT+FNp$ ( (90-LEN(a$))/2,t);a$:NEXT:FORet 
=1eT0°70:PRINT-c$+"I"; :NEXT' + (Ul) 

860 RETURN! + (HO) 


880 +" touche 

890 -PRINTeFNp$ (35, 30) ; "MI *A+M! + (héhéhé) “' + (MI) 
900-FOR°t=0+TO+3:PRINT-CHR$ (7); :FOR°i=nceTO+2eSTEP+-]1:PRINTe 
FNp$ (px(i),py(1})}:monster$ (t) :NEXT:NEXT' + (LA 
J10-vie=vie-1:IF-vie=0+THEN*990!' + (D4 
920+FOR°1=0+T0+4:FOR°t=1 °TO +80 STEP +2! + (GR) 

930-IF-MIDS (couloir$(1}),t,2)=a2$eTHEN°MIDS (couloir${(i),t,2)= 
"os"le (PR) 

G4ONEXT:NEXT' + (NP) 

950PRINTeFNp$ (31,2); vie! (2D) 
960-PRINT-FNp$ (35, 30) ; SPACES (20) ' + (DM) 
970enc=1:x=px (nc) :y=py (nc) : GOTO+ 520" + (NH) 


990°'+game-over 

1000°PRINTec$+"E"" + (09) 
1010+1Fepoint>hscore-THEN-hscore=point :PRINT*FNp$ (30,10) ;"°N 
OUVEAU°HIGH+SCORE-! 11e"; STR$(hscore)+"00+-!!1"1+.{(pZ) 
1020-PRINT-FNp$ (36,15) ; "GeA+M°E++eO+VsAcIeR+E"+ete (KZ) 
1030°FOR°t=1 °TO° 3000: NEXT' + (10) 
1040FOR°1=1+TO+50:PRINT:NEXT' + (BF) 

1050°GOT0*110 "+ (19) 
1060-'-déjarendu-1à*???-bravo-!!lesauvez-ce-programme-ene+e 
sesssssestapant: eee. save"trepan.bas 
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Toujours très bien côté auprès de vous, chers 
lecteurs, le courrier est vraiment le carrefour de 
tous les PCWmaniaques, friands de trucs et astuces, 
mais aussi un cadre privilégié où les liens qui unis- 
sent les membres de notre communauté se renforcent 
à jamais. Solidarité, donc, mais aussi une sélection 
des meilleurs trucs qui, je l'espère, répondront à de 
multiples questions que ne manquent certainement 
pas de se poser néophytes et vieux routiers comme 
j'ai pu le constater dans vos lettres. En espérant tou- 
jours répondre à l'attente du plus grand nombre, 
voici vos échos, répercutés dans ces colonnes qui 
vous sont depuis longtemps réservées. 


Votre dévoué, Albert DUROUX 


le 
CO ES RUE" CRE RE RTS Ÿ (Soul 


LOUIS DROUIN 


Voici quelques éléments que je n'ai pas trouvé dans la 
documentation accompagnant le PCW et qui me 
paraissent pouvoir intéresser les utilisateurs de 
Locoscript. 


L 
i 
1 
! 
! 
I 
I 
! 
l 
i 
! 
l 
! 
I 
! 
! 
1 
! 
Ù 
Ù 
! 
! 
1 
! 
! 
! 
I 
Û 
! 

£ | ; 1 

Caractères acceptés par Locoscript 1.21 pour les E 

noms de document, de groupe, de disque : toutes les | 

lettres majuscules (les minuscules sont automatique-  ! 
! 
! 
Û 
l 
! 
! 
I 
l 
! 
! 
l 
I 
I 
! 
! 
Û 
1 
1 
! 
I 
1 
1 
! 
1 
0 
! 
! 
i 
l 
! 
! 
L 





ment transformées en majuscules), tous les chiffres 
(sauf comme premier caractère du nom), et les signes 
suivants:"#$%'@T_{}- 


OUTRE 1 
1 ligne sur bi 
ode. 16:Eluc; 


Ordre de tri sur chaque caractère des noms de docu- 
ments dans un groupe : 


"#$%'0à9@AàZT_(} - 


La connaissance de cet ordre de tri peut être utile 
pour clarifier le répertoire d'un groupe, sachant que 
le tri se fait caractère par caractère, de la gauche vers 
la droite (allons, allons, pas de politique !), et qu'une 
position vide sort avant la même position occupée 
par quelque caractère que ce soit. 





+ 


H le 
(Soupa  à" à à à à à à” (Soul) 
0 


- Placer des tabulations à chaque niveau où doit 


JEAN NOBILI être placée une séparation verticale. 
Bonjour, les infos sur Locoscript n'étant pas ce qu'il y 2°) Le principe, c'est de ne faire manuellement que le 
a de plus courant dans vos colonnes, je vous propose début du tableau, puis de reproduire cette ébauche 
un petit truc pour réaliser facilement un tableau. Avis autant de fois que le nécessite l'œuvre finale. Nous 
à ceux et à celles qui se sont muni(e)s d'un PCW pour allons donc faire : 
son option "Traitement de Textes” (il doit bien y en A) La ligne horizontale supérieure : (+SouL) pour 
avoir, non?). Faire un tableau avec Locoscript? C'est souligner, puis <TAB>, <TAB>, <TAB», etc... jus- 
très simple... qu'au bout de la ligne, puis (-SouL) pour marquer la 
fin du soulignement et <RETURN>; 

1°) Par <f2> entrer le nouveau format : B) Les séparations verticales : | (obtenue par 

- Pas de caractère approprié (selon les dimensions <SHIFT><EXTRA><.>), faire <TAB», et recommen- 
du tableau); cer, ainsi de suite jusqu'à la fin de la ligne. Nous 

- Interligne (IL)-1/2 pour que les séparations ver- avons ainsi placé une barre verticale à chaque tabula- 
ticales se rejoignent lors de l'impression; tion. Faire <RETURN> et renouveler l'opération pour 
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les lignes suivantes (au moins sur 3 lignes car l'inter- 
ligne est de 1/2); en outre, un nombre impair de 
lignes permet de centrer le texte dans les cases. 

C) La dernière ligne : se fait de la même manière 
que précédemment, à ceci près qu'elle doit être souli- 
gnée afin de réaliser la séparation horizontale infé- 
rieure. 


ET LE TRAVAIL FASTIDIEUX S'ARRETE LA ! Car 
il suffit maintenant de reproduire cet embryon de 
tableau autant de fois que nécessaire à l'aide de 
<COPY> et de <PASTE», en utilisant de préférence 
les blocs de 1 à 9 pour mémoriser. 

Le tableau fini, il ne reste plus qu'à remplir les cases. 
Pour ce faire, penser à placer le curseur sur la flèche 
de tabulation commençant la ligne dans la case ou 
l'on souhaite écrire. 


L'ECHO 


Tir groupé pour Locoscript, avec d'une part un "rap- 
pel" qui vient encore combler une lacune du manuel 
de base, et d'autre part un excellent tuyau pour 
tableauter à volonté sur notre Traitement de Textes 
fétiche. 


LAURENT BAUDRILLARD 


Chers PCWistes, grande fut ma joie en découvrant 
dans ma revue préférée, l'utilitaire tant attendu de 
mes étiquettes : ETIC'FACILE (ECHO N°16). 

Après l'avoir tapé et corrigé, je décidai donc de lui 
donner la mensuration de mes étiquettes (variables 
‘nli' et nca’). Mais je devais bientôt être confronté à 
de multiples problèmes. En effet, ce merveilleux pro- 
gramme ne fonctionne qu'avec un seul type d'éti- 
quettes, ce qui lui enlève tout son charme... et son uti- 
lité! Ce refus est pourtant très simple : tous les calculs 
ne sont pas uniquement basés sur ces deux variables. 
Prenant mon courage d'une main et le clavier de mon 
précieux PCW de l'autre, il ne me restait plus qu'à 
essayer d'y remédier. 

Je vous communique donc le fruit de mes recherches 
dans le but d'en faire profiter les lecteurs intéressés. 


Voici les lignes concernées et la marche à suivre : 


1 - Lancer BASIC 

2 - Charger ETIC'FACILE par LOAD"ETIC.BAS" 

3 - Ajouter les lignes 61,62,63,64,1221,1222 

4 - Modifier les lignes : 
350,610,730,790,970,980,1070,1140 


Le format de l'étiquette se trouve en ligne 60 
(Variables ‘nca’ et 'nli') et le DRIVE sur lequel doit se 
trouver le fichier est en ligne 64 

Enfin, sauver le programme ainsi modifié par 
SAVE"ETIC2.BAS" 


Nota Bene : Une étiquette n'étant représentée que par 
une seule chaîne de caractères dans le fichier, la surfa- 
ce de l'étiquette ne devra pas dépasser 255 caractères 
(d'ou la nécessité d'avoir la ligne 63). 


LOUIS DROUIN 


Chers amis, j'avais saisi CALENDPCW publié dans 
l'ECHO N°13, puis modifié grâce au courrier de 
M.LLATY (ECHO N°16 et N°17). J'avais vérifié que 
mon père était bien né un vendredi 13 le siècle passé. 
Tout allait bien. 

Et puis voilà qu'il me vient l'idée de chercher quelles 
seront les prochaines années où le 1er Mai (et donc le 
8 Mai et Noël) tombera comme cette année un 
Dimanche. Je fais donc défiler les années, et voilà que 
je découvre que le 31.12.2000 et le 01.01.2001 tombent 
tous deux un Dimanche? J'abandonne la recherche 


des dimanches 1er Mai et j'entreprends celle des jours 
de la semaine sur lesquels tombe le 1er Janvier des 
millésimes terminés par 00 et 01, que je vérifie dans 
"Que sais-je ?” n°203. Résultat de ces recherches : le 
calendrier modèle COQUIN modifié LLATY produit 
une erreur d'un jour un siècle sur quatre, c'est-à-dire 
les années 1601 à 1700, 2001 à 2100, etc... 

La cause de cette erreur est dans le dernier terme de 
la ligne 310 : 


-INT(0.75*INT((AN%-1)/100)) qui décrémente de 1 
en 1601,1801,1901,2001 alors qu'il faudrait le faire en 
1701,1801,1901,2001... 


61 IF (NLI<I OR NLI>9) OR (NCA<1 OR NCA>75) THEN PRINT CHRS (7); "FORMAT D'ETIQUETTE INCORRECT": END 


62 LONG=NLI* (NCA+1) :MEMORY ,, 1, LONG 


63 IF LONG>255 THEN PRINT "LA SURFACE DES ETIQUETTES EST TROP GRANDE": END 

64 NOM$="A:FICHETIC."+RIGHTS (STR$ (NLI), 1)+RIGHTS (STRS (NCA) , (LEN (STRS (NCA) )-1) 

350 LIET=LIET+1:CARET-1:IF LIET-=NLI+1 THEN 360:ELSE PRINT FN LOC$(TABU + 2,LIET + 2);:GOTO 110 
610 GOSUB 730:BUF$="":FOR F=1 TO NLI :BUF$=BUFS$+DLS (F)+L$(F):NEXT F 


730 OPEN "R",1,NOMS, LONG:FIELD 1,LONG AS ETIFS:RETURN 


970 BUFS=ETIFS:FOR F-0 TO (NLI-1):L$(F+1)=MIDS (BUFS, F* (NCA+1) +2, NCA) :DL$ (F+1)=MIDS (BUFS,F* (NCA+1)+1,1):NEXT F 


980 PRINT CLS :PRINT:PRINT:PRINT:TITRES=" F3/F4 


POUR CORRIGER DANS LE FICHIER ":GOSUB 570:GOSUB 760: PRINT CHR$(27)+"Y 


";RECUS:FOR I=1 TO NLI:PRINT FN LOCS(TABU-3,2+I);1;" ";IVS;L$(I);AIVS 


1070 GOSUB 730:FOR A=COM% TO FIN$:LSET ETIF$-SPACES (LONG) : PUT 1,A:NEXT A:CLOSE 1:GOTO 1420 
1140 FOR F=0 TO NLI-1:L$(F+1)=MIDS (BUFS, F* (NCA+1) +2,NCA) :DLS (F+1)=MIDS (BUFS,F* (NCA+1)+1,1):NEXT F 
1221 IF O$="B" THEN PRINT CHR$(27)+"Y":PRINT CURONS:PRINT CL$:PRINT AIVS:END 


1222 GOTO 1210 


r 
! 
! 
! 
! 
! 
! 
! 
! 
l 
! 
! 
: 
| 790 IF NBET>0 AND NBET<501 THEN FOR K-1 TO NBET:GOSUB 400:NEXT K:ELSE PRINT CLS:GOTO 1250 
1 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
L 
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Bref, après tâtonnements, corrections et simplifica- et <[-}> pour allumer ou éteindre une case de la 
tions voici le remède : matrice visualisée; <ESPACE> pour valider le carac- 
310 M=ANS%+ (AN$-1) ç4- (AN$-1) ç100+(AN$-1) ç400+6 tère. 


320 Y= M MOD 7 + 1 
330 IF AN$ MOD 4 = 0 THEN B-=1 
340 IF AN% MOD 100 = 0 AND AN$% MOD 400 © 0 THEN B=0 


10 CLEAR 
20 ES$=CHRS (27) :DEF FNLOCS (Y, X) =ES$+"Y"4+CHRS (32+ 
X) +CHR$ (32+Y): IS=ES+"P":NS$=ES$S+"Q": PRINT ES$+"E 


Le caractère "Ç” s'obtient sous Basic par la double ":PRINT ES+"F" 
pression de la touche en question et correspond au 30 FOR X1=-36 TO 43:FOR Y1=11 TO 18:PRINT FNLOC 
$S(X1,Y1)".":NEXT Y1:NEXT X1 


! 

! 

1 

! 

! 

! 

! 

! 

| 

signe “\" qui traduit la division entière. ! 
ë q 1 40 DIM PO(80, 30) 
1 50 X=36:Y=11:X2-36:Y2-11 
1 60 PRINT FNLOCS (X2,10)"|":PRINT FNLOCS (35, Y2) "> 
L'ECHO 1 70 AS=INKEYS:IF AS="" THEN 70 

1 80 IF ASC(AS)=1 AND X>36 THEN X-X-1:GOSUB 210: 
| X2=X2-1:GOTO 60 
1 90 IF ASC(AS)=6 AND X<43 THEN X=X+1:GOSUB 210: 
1 X2-X2+1:GOTO 60 
1 100 IF ASC(A$)=30 AND Y<18 THEN Y-Y+1:GOSUB 22 
1 O:Y2=Y2+1:GOTO 60 
1 110 IF ASC(AS)=31 AND Y>1l THEN Y-Y-1:GOSUB 22 
i 
1 


Une amélioration notoire d'un des programmes de 
l'Echo est toujours la bienvenue. En particulier lors- 
qu'elle corrige un "bug" vicieux qui m'empêchait 
d'espérer un jour de congé supplémentaire en l'an 
2001 pour parfaire mon odyssée de l'espace informa- 


tique! 0:Y2=Y2-1:GOTO 60 
120 IF ASC(AS)-28 THEN PO(X, Y)=0:PRINT FNLOCS 
NOR RER nd nets er ne eos eme sans ane os pan nee nn tn te etes En oee RÉ ÉRRT Tee ae guess (X, Y)".":GOTO 60 


140 IF ASC(A$)=32 THEN 170 

150 GOTO 70 

160 PRINT FNLOCS(X,Y)1$" "N$S:GOTO 70:RETURN 

170 FOR Y1=11 TO 18:YI=YI+1:IN-1:FOR X1-43 TO 
36 STEP -1:1F PO(X1,Y1)=1 THEN ASI(YI)-ASI (YI)+ 
IN:IN=IN*2:ELSE IF PO(X1,Y1)-0 THEN IN-IN*2 

180 NEXT X1:NEXT Y1 

190 FOR Y1=11 TO 18:Z=2+1:PRINT FNLOCS (20,Y1) 

; USING "###";ASI(Z) :NEXT Y1 


Afin de dépanner certains lecteurs, voici un petit pro- 
gramme de transfert de fichiers sous Basic, corres- 
pondant à PIP sous CP/M, dont la fonction n'est pas 
présente dans le Basic Mallard. 

Bien entendu, ligne 30 on met le nombre de fichiers à 
transférer, et à la ligne 140 on met les noms de ces 


nn mm mm mm MMM SMS MMMSSSS MS MMM SM MMM SE ne ee ne ne ee en me me me me où 








fichiers. 200 END 
SR Rare dE ra RER D SAP ENT PEL EPL 1 1 210 PRINT FNLOCS (X2,10)" ":RETURN 
I 10 TRANSFERT DE FICHIER SOUS BASIC (correspond à PIP I 220 PRINT FNLOCS (35,Y2)" ":RETURN 
| sous CP/M) --- : SR ne ne : 
1 20 | | | 
1 _ X=0:FOR i=1 TO 3:READ s$:IF FINDS(s$)="" THEN 120: 1 L'ECHO | 
y nombre de fichiers (=3) 1 | 
4 40 OPEN "R",1,"A:"+s$,128:FIELD #1,128 AS k$: ‘ouverture É x are 
! sur le disc à lire E Même remarque que précédemment... 
1 50 OPEN "R",2,"M:"+5$,128:FIELD #2,128 AS 1$: ‘ouverture 1 | ue M 
\ sur le disc à écrire 1 
1 60 X=X+1:GET #1,X: 'lecture d'un secteur 1 MICHEL SEGURET 
1 70 IF NOT(EOF(1)) THEN GOTO 80 ELSE GOTO 110: ‘si ce n'est | 
! pas la fin on continue Ê 5 | : à 
£ LSET 15=k$: | "attribut ion Aa Messieurs, je suis un lecteur assidu de votre revue, 
90 PDT 42 > loriture diun cécteuE | même si certains aspects techniques dépassent le non 
1 100 GOTO 60: ‘au secteur suivant i programmeur que je suis. 
1 110 CLOSE: ‘on ferme les 2 fichiers L Dans le courrier des lecteurs, j'ai trouvé la lettre de 
1 120 NEXT: ‘on passe au fichier suivant | Monsieur BOYAUX et je suis peut-être en mesure de 
| 130 ‘nom des fichiers en datas | le renseigner. 
140 DATA FICHIERI .1,FICHIER2 .2,F ICHIER3.3 É En effet, la fondation G.R.A.C.H. (Groupement de 
RAR A dE D M ee 3 Recherche pour l'Autonomie et la Communication 
LEGO des Handicapés) dont je suis membre s'est fixée pour 
but de permettre à des personnes handicapées de 
/ Fan vivre le plus normalement possible, et nous avons 
Simple, mais efficace! déjà adapté des PCW pour des enfants infirmes 
AR PR EE ns moteurs cérébraux. 
Votre lecteur pourrait contacter de ma part les deux 
Anonyme techniciens qui ont contribué à ce travail : 
Aide à la redéfinition de caractères pour MATRIX2 Claude GALLES 
grâce à l'obtention des codes numériques depuis le Le Cormier 
dessin de la matrice. SAUNAY 
Les touches à utiliser sont : les touches curseurs pour 37110 CHATEAU RENAULT 
déplacer les indicateurs de position ( T et —> }; <[+]> 47.56.83.60 
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Grâce à lui de nombreux handicapés ont pu renter 
chez eux aidés par un contrôle d'environnement très 
complet, dont il est l'auteur, et il a déjà travaillé pour 
un PCW. 


Jean-Claude PAGES 

La Colline Chantecler 

1413 rue du Pioch de Boutonnet 
34090 MONTPELLIER 
67.41.36.69 


Il a modifié un PCW pour un jeune de Montpellier. 


La Fondation Suisse pour les Téléthèses a de plus réa- 
lisé une interface mono occurence qui permet de faire 
fonctionner tout ordinateur, minitel ou autre avec un 
seul geste si petit soit-il. Son président est : 


Jean-Claude GABUS 
Cret Taconnet 

CH 2002 NEUCHATEL 
19.41.38.24.67.57 


Il pourra le renseigner sur le représentant en France, 
qui est je crois l'Association Nationale des Infirmes 
Moteurs Cérébraux, rue Blanche 75009 PARIS 


L'ECHO 


Quelle diligence! D'un numéro à l'autre, voilà une 
mine de renseignements utiles à sans doute plus 
d'une personne, et la découvertes de possibilités un 
peu méconnues pour nos chers PCW. N'est-ce pas 
que les lecteurs sont formidables ?! 


FRANCIS DALIPHARD 


Vous utilisez MAIL232.COM et les valeurs par 
défaut ne vous conviennent pas. Voici un moyen faci- 
le pour créer une disquette "COMMUNICATION" 
adaptée à votre usage. 


Vous aurez besoin de SAVE.COM sur la face 3 de 
votre disquette utilitaire et de MAIL232.COM bien 
caché sur la face LOCOSCRIPT 1 (voir ECHO n°10). 


Copier, sur une disquette vierge (formatée) que nous 
appelerons "COMMUNICATION", MAIL232. Mettre 
la face 3 dans le lecteur A: et faire : 
SAVE<RETURN>. Le prompt A> réapparaît. Placer 
la disquette contenant MAIL232 dans le lecteur A:. 
Faire : MAIL232<RETURN», appuyer sur <f1> et 
sélectionner vos options. Par exemple : 


Tx: 300 

Rx: 300 
Databits: 8 
Parity: NONE 
Stop bits: 1 
H/W: off 


Pressez <EXIT> pour quitter le menu. 
Sortir du CP/M par <f7>. 
Et là! petit miracle, on ne retrouve pas A> 


SAVE.COM à pris le contrôle; à chacune de ses 
invites répondre : 


INVITE REPONSE 

CP/M SAVE version 3.0 

Enter file MAIL300.COM<RETURN> 
(par exemple) 

Beginning hexaddress 100<RETURN> 

Ending hexaddress 10FF<RETURN> 


Le A> réapparaît et vous avez un fichier baptisé 
MAIL300 qui est d'emblée paramétré en 300 bauds 
full duplex. Toutes les combinaisons sont bien sûr 
possibles. 


Pour raffiner un peu, on peut faire une disquette de 
lancement automatique. Petite précision, par expé- 
rience, il est nettement préférable de réceptionner les 
données en M;, ce qui supprime l'accès disquette 
pendant la transmission, et de les recopier à la fin de 
la communication sur une disquette du lecteur A: ou 
B:. 


Copier sur la disquette communication les fichiers: 
J14FCPM3.EMS 

SUBMIT.COM 

PIP.COM 

et créer le fichier PROFILE.SUB suivant : 


M:> 

A:MAIL300 

Lorsque la communication est terminée, sortir de 
MAIL par <f7> et au prompt M> et faire : 
A:PIP<RETURN> pour recopier le fichier reçu en M: 
sur une disquette. 

Bonnes communications et n'oubliez pas de vous 


reporter à l'excellent N°10 de l'Echo pour parfaire vos 
connaissances. 


L'ECHO 


Bien reçu, cinq sur cinq! 


æ ATTENTION ! 
Le prochain numéro 
augmente de : 


8 pages (+ 14%) 
3 Francs (+ 10%) 
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La façon de saisir un programme Basic a fait l'objet d'une étude 
approfondie dans l'ECHO du PCW N°1 dans “Un départ saisissant" 
qui reste complémentaire au livre 2 livré avec les PCW. 

Résumé : 

Allumez l'ordinateur et insérez la face 2 de la disquette système. À 
l'affichage de “A>" tapez BASIC suivi d'une pression sur [RETURN]. 
Une fois sous Basic, lancez la numérotation automatique par 
AUTO+[RETURNI]. 


À chaque numéro de ligne affiché, tapez son contenu conformément 
au listing de l'article. 

Pour sortir du mode AUTO afin de corriger une ou plusieurs 

lignes, tapez [STOP]. 

Pour corriger une ligne, tapez EDIT suivi de son numéro et 

d'une pression sur [RETURN]. 

Exemple : EDIT 10 [RETURN] 

Pour lister sans corriger, taper LIST [RETURN] 

Exemple : LIST 10 [RETURN] ou LIST -100 [RETURN] ou 

LIST 10 -100 [RETURN] ou LIST [RETURN] 





Faites des sauvegardes régulières du programme, même en 
cours de saisie, en mettant une disquette vierge en À et en 
tapant : SAVE "Nom du programme" [RETURN]. 

Exemple : SAVE "ECHO" [RETURN]. 


CONSEILS : Ne lancez jamais un programme avant d'en avoir 
fait une sauvegarde. Utilisez les mêmes noms que ceux conseillés 
par l'auteur (dans son article ou sur la disquette qui l'accompagne). 
Vérifiez ligne par ligne que ce que vous avez tapé est strictement 
identique à ce qu'indique le listing. Soyez particulièrement vigilant 
dans les cas suivants : Ne confondez pas : point virgule et deux 
points, point et virgule, | majuscule et i minuscule ou le chiffre 1. 
Respectez : les espaces, les guillemets, les REM et les numéros de 
lignes. Ne modifiez pas un programme avant d'être certain qu'il 
fonctionne totalement. Les erreurs se produisent rarement dans la 
ligne responsable de ceux-ci. Seule SYNTAX ERROR ou erreur de 
syntaxe dans la saisie, arrive dans une ligne mal écrite. C'est pour 
cette raison que le BASIC MALLARD l'édite automatiquement. 
Dans tous les cas, reportez-vous à l'annexe Il du manuel Amstrad. 





15 NOUVEAU : PAYEZ POUR DEUX ANNONCES ET PASSEZ EN TROIS II! 
- Pour garantir le sérieux des annonces, L'ECHO DU PCW demande 50 F par 


passage où 100 F pour trois parutions. 
- Les rubriques disponibles sont : VENTE, ACHAT, CONTACT, OFFRE DE SERVICE, 


DEMANDE D'EMPLOI, OFFRE D'EMPLOI, CLUB et DIVERS. 
- Les annonces de DEMANDE D'EMPLOI sont gratuites. 





CATARACTE PCW 8256 EXTEN 
512 K 2 DRIVES+COMPAGNON 
+MAILING+C'CHESS+30 DIS- 
QUETTES+9 DISC ECHO+ECHO 
N°1 A FIN 88 + LIVRES - SERVI 30 
HEURES MAXI - 4900 F BRETON 
TEL 42 87 18 24 HEURES REPAS 





SUITE DISPARITION SOCIETE PSS 
CHERCHE A ACHETER JEU 
ANNALES DE ROME POUR PCW 
200 F MAXI. M BIGOT ERIC 14 
RUE HAUTE VASSELIERE 37260 
MONTS 





TEXTE DE L'ANNONCE 


TOTAL A REGLER 50 F (ou 100 F) + 





© VENDS CAUSE AGE 80 OPERE 


X 10 F par ligne supplémentaire 





© VENDS PCW 8512 + LOGI- 
CIELS (ORIG+MULTIPLAN+DR 
DRAW+INTEGRE2+SOURIS ET 
DRAW) AVEC MANUEL ET COL- 
LECTION ECHO DU PCW PEU 
SERVI BON ETAT TEL SOIR APRES 
20 H AU 49.00.15.47 JP FREGERE 
PRIX 3500 F 


© VENDS DIGITALISEUR VIDEO 
VIDI ROMBO 

VALEUR 1400 F SACRIFIE 800 F 
FOURNI AVEC CABLE 

TEL BUREAU 49.98.10.63 

MR MORICEAU 

TEL DOMICILE 49.98.50.91 








JARIES ANNONCE 
DEMANDE D'EMPLOI : 
AUTRES RUBRIQUES : 


JOB 


© PCW 9512 MONTRERAIT SES 


CAPACITES POUR FRAPPE DE RAP- 
PORTS, ARTICLES, MANUSCRITS, 
DECRYPTAGE DE BANDES, 
CONTACTER : LABES BERTRAND 

97 AV. CH DE GAULLE 92200 NEUILLY 
TELEPHONE 47.45.22.75 


© CHERCHE A REALISER PETITS TRA- 
VAUX PENDANT MES WEEK-END - 
ETUDIE TOUTE PROPOSITION SUR 
PCW 9512 

CONTACTER : MR THOMASSIN JEAN- 
CLAUDE 3 GRANDE RUE 26600 LA 
ROCHE DE GLUN 


GRATUITE 








© Transfert de fichiers PC-MAC, 
PCW-MAC, PCW-PC, papier à 
en-tête en continu, Télé- 
matique, programmation sur 
mesure, c'est au service entre- 
prise que vous les trouverez ! 

inscrivez-vous sans attendre... 


© GRATUIT... Un catalogue vous 
révèle comment créer votre 
propre affaire de vente par 
corrspondance. Méthode facile 
et hautement lucrative. Ecrire 
à Kost JHA BP 922 90020 BEL- 
FORT cédex. 


SRE ED sen RE nn nn Ed RNA ee cut 
ECRIVEZ LISIBLEMENT EN LETTRES CAPITALES. 


1 Parution : 50 F TIC (dont TVA 18,6%=7,84 F) 


3 PASSAGES : 100 F TIC (dont TVA 18,6%=15,68 F) 
Ligne supplémentaire : 10 F TTC (dont TVA 18,6%=1,57 F) 


Ce bon de commande tient lieu de facture. Gardez-en un double pour votre comptabilité. 
La rédaction se réserve le droit de refuser toute annonce sans avoir à le justifier. Les 
annonces non accompagnées du règlement seront retournées à leurs expéditeurs. 





REGLEMENT A L'ORDRE DE LOGI'STICK PAR : 
[I CHEQUE (]J CCP [J MANDAT (] VISA/CB 





validité : 1 


OR Ses | ANNEXE BASIC / PETITES ANNONCES :- L'ECHO DU PCW N° 23 





PES 
<<: 
RQ 











© 


 condulise 


V CE CZ 


PARTAGER NOTRE SOIF DE QUALITÉ 
EN DÉCOUVRANT NOTRE CATALOGUE 








à 
à 


OT RP AA TN 
TEE 
RÉ 
AU 2 , 


N 
© At 
EX 


> 
Ÿ 
SE 
Les 


NS 
x 









ts 


INSEE 
RS NL 


7 


PCW : 8755/8517/0b1) 





DUPLICATION ET DIFFUSION INFORMATIQUES 


Centre d'Affaires PARIS NORD ‘Le Bonaparte” Boite 37 - 93153 LE BLANC MESNIL CEDEX 
TEL. (1) 48 67 28 44+ | 


VENTE EXCLUSIVE AUX REVENDEURS CONQUERANTS 





RENTE 
RES 

sé tt RTE 
SNS NS NO 
a 
Rs 


NS QUES 
RSS 


ROVER 





AMSTRAD EXPO 


- coup de foudre pour l'entreprise. 






DU 4 AU 7 NOVEMBRE 
PARIS PORTE DE VERSAILLES 


STRAD |] 
EL 


Coup de foudre pour l'entreprise. 


Coup de cœur pour les loisirs. 





Leader du PC compatible en France et en Europe, Amstrad 
marque l'édition 88 d'AMSTRAD EXPO par son arrivée en force 
dans le monde des ordinateurs à base de 80286 et 80386. 


Ce ne sont pas moins de 24 nouveaux modèles et 
4 nouveaux écrans que tous les professionnels pourront découvrir 
Porte de Versailles du 4 au 7 novembre 1988. 


Chef de file de cette nouvelle gamme, le PC 2386 permet 
aujourd'hui à toutes les entreprises de s'équiper avec le matériel 
le plus puissant du marché. 


Autres étoiles de ce fantastique feu d'artifice les PC 2286, 
PC 2086 et le fameux portable PPC 640 avec son modem 
intégré |! 

Et aussi bien sûr les PC 1640 et PC 1512 avec l'intégrale 
PC+ (formation gratuite lors d'AMSTRAD EXPO). 


Enfin le PCW 9512 avec son ensemble logiciel, l'intégrale 
PCW (formation gratuite lors d'AMSTRAD EXPO). 


Présentation permanente sur grand écran des meilleurs 
logiciels du marché. 


La percée d'Amstrad dans le domaine professionnel est 
aujourd'hui une réalité indéniable. Votre présence à AMSTRAD 
EXPO 88 en sera la preuve concrète. 


A AMSTRAD EXPO 88, Amstrad présente toutes les 
innovations qui vont révolutionner les loisirs. Parmi elles, à voir 
absolument : 

@ Une démonstration permanente de télé-chargement, 

un nouveau service sur 3615 Amcharge, qui, à l'aide du Minitel 
et d'un simple câble, vous permet de tester les derniers logiciels 
au top du Hit-Parade, et même d'acheter tout le catalogue 
proposé sur le minitel, sans vous déplacer ! C’est simple, et 
valable pour toutes les machines 464* et 6128*. 

@ Une station micro complète qui vous permet de transformer 
votre écran de CPC en téléviseur couleur. 

Composée d'un adaptateur télé + radio-réveil PO.GO.FM 

+ 15 logiciels de jeux + 1 manette + 1 bureau. 

Pour les posseseurs d'Amstrad 464 et 6128 couleur, un 
complément indispensable ! 

@ Le magnétoscope VCR 6000 (VHS-HQ) et sa fameuse 
télécommande « Easy-Programmer », et le VCR 6100 à 
programmation code-barre. Deux révolutions dans la simplicité 
d'emploi. 

@ Le Studio 100, à la fois studio d'enregistrement multipistes, 
chaîne musicale et console de Disc-jockey, un must pour les 
amateurs de musique. 

@ Les intégrés télévision-magnétoscope TVR 2 et TVR 3. 

@ Les nombreuses chaines Midi, classiques et à disque laser. 
@ Pour tous, des animations, des jeux, des concours, des surprises. 
Avec les prix Amstrad, les coups de cœur, c'est pour tout le 
monde : Amstrad le prouve une fois encore à AMSTRAD EXPO ! 


* Si votre moniteur est un CTM 644 équipé de la prise 12jV./D 


CE DEPLIANT 4-7 NOVEMBRE 


PARIS-PORTE DE VERSAILLES 


À U N E VAL E ù R Accès R.A.T.P. : 
É métro : Porte de Versailles - Ligne 12 
e (Mairie d’Issy - Porte de la Chapelle) 


bus: Ligne 39 - 49 - 80 et PC. 


Accès voiture : 


Sortie périphérique : Porte de Versailles 
Porte de la Plaine 


Parking : Porte de Versailles 
Place Porte de Versailles. 





Conservez précieusement ce dépliant 
AMSTRAD EXPO il vous donne droit 
à une entrée à tarif réduit. 

(25 francs au lieu de 35 francs). 


Organisation : 
SOSIS - 187, rue Marcadet - 75018 Paris 
Tél. : 42.52.84.76. 


Présentez ce dépliant aux caisses d'entrée. 
Cette réduction vous est offerte par : 


QPLLEN 





MICRO 





Z4 AMSTRAD EXPO 


UE coup de cœur pour les loisirs. 






DU 4 AU 7 NOVEMBRE 
PARIS PORTE DE VERSAILLES 


Œ ON 





MENDÉS-FRANCE. M.C. MRHE.SR 


